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ABSTRACT 

This  thesis  describes  the  design^  implementation  and  user 
interface  for  an  Instructional  Software  Information  System 
(ISIS),  The  existing  volume  and  increasing  rate  of  growth 
of  computer  software  production  suggests  the  need  for  a 
catalogue  procedure  to  help  programmers  find  existing 
Software  to  reduce  redundant   programming. 

The  Purpose  of  the  ISIS  is  to  provide  an  online 
software  catalogue  which  does  not  reguire  either  prior 
instruction  or  familarity  with  keyword  lexicons.  Using 
ISISr  a  user  may  record  the  characteristics  of  new 
software*  and  make  searches  for  existing  software  by 
specifying  its  characteristics.  Characteristics  are 
specified  by  selection  from  a  succession  of  menus. 
ISIS  is  implemented  on  a  PDP-11  computer  operating 
under  the  UNIX  operating  system  using  the  INGRES  data 
base  management  system.  It  is  written  in  the  QUEL  guery 
language  embedded  in  the  programming  language   C. 


-a- 


ACKrv;n^LF_OG:MENTS 

I  woulo  li<e  to  exnress  rpy  sincere  acpreciation  to  all 
those  who  croviaed  haci<c;round  material  and  shared  their 
experience  in  this  tnssis^  and  in  oarticular  to  Dr.  C,  E. 
Irvine  for  her  helo  witn  the  C  lanciuage  and  the  UNIX 
oceratinq  systenn.  I  a-n  ceeolv  arateful  to  my  thesis  advisor 
LCC'K  bteohen  hOLL  for  his  auidancef  timely  a  (J  vice  and  help 
throuahout  this  /jork.  Final  ly^  a  very  special  thanks  to  my 
wife/  ^yten,  for  her  oatience  and  understanding. 


-S- 


]■  /^  M L L       OF       C  0 \'  T  t  f  a  S 


i  .  I'^JfRuDiiC  T  lO'N' 7 

A.  irjTW(jDUC  I  lOrj       TO       IMF       PROHLhM 7 

13.  POSSIttLF       SOLUTIONS 8 

II.      A  p  p  K  0  ^  c  H      r  A  K  e.  r  J 9 

A.    KASIC  T'lfTlAL  SPECIFIC  AT  TOMS 9 

b.    Data  STKHCTOPt 10 

1.  Tre'='  Tyre  Sfructure 10 

2 ,  Table  Tvoe  Strijci"ure ...11 

5.   "-Wbrid  Structure 1^ 

•C.  LANGUAOE    SELECTION 13 

0.  CLASSIFICATIOro    OF    SOFTl^APE la 

III  .     DESIh'i       FEATURES 16 

iv.       CODLi.G       Ai\0        TFSTir.G       PHASES 19 

V.         COr.rLUSllJ'N 21 

A  .  S  Y  S  T  E  ^-^       CAPABILITIES 21 

b.  PPO^LE^S       /'jITH       THE     SYSTEN^ 22 

C.  POSSIBLE       OTmEP       USAGE       APFAS 25 

A  P  P  E  N  U  U       A     :  i.i  S  F  R  •  S       P  E  E  E  P  E  T'l  C  E       MANUAL 24 

CQMPU  I  EK   PPUGHAMS 59 

LIST   uF   PEFEPFOCFS 100 

1  Tj  I  T  I  A  L   L)  I  S  T  fU  ^  U  T  I  0  '-J   LIST 101 


I  .     [  r  i  T  (^  f]  0  Li  C  T  I  0  f^J 


A.  ITilROOUCT  ION  in  THE  PROBLEM 

Jcisy  in  the  co^ti cuter  world  there  is  an  enormous  amount 
of  softwaref  written  on  many  different  subjects.  Sometimes 
it  is  feasible  to  adont  a  oroqram  on  nand  to  a  aiven 
problem;  sometimes  it  is  not.  Even  when  new  software  must 
be  created,  the  job  can  often  be  made  easier  if  advantage 
is  taken  of  existing  software  tnols  or  of  example  proqrams 
performing  analogous  functions. 

The  existina  volume  and  increasina  growth  rate  of 
computer  soft.".are  demands  effective,  easv  to  use  catalogue 
Droceaures.  '■.■  hen  a  oroarammer  is  tasked  to  write  a  new 
proc;jram,  he  Should  be  able  to  begin  by  verifying  that 
software  oerformino  tne  indicated  tasks  does  not  already 
exist.' 

Many  computer  firms  supply  on  line  or  off  line 
catalodueo  subroutine  lioraries.  But  these  library 
catalooues  are  not  General;  th^y  are  cataloaues  on  specific 
Subjects.  A  oeneral  all-encomcassino  catalooue  is  desired^ 
and  It  snould  he  one  which  can  ne  conveniently  extended  to 
include  riew  software  written  or  acauired  locally. 
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C.  PUSoIBLh  SOIJJflONS 

Solutions  to  trie  rrchlem  can  take  ti^o  forTis;  an  offline 
cat<=ilonue/  or  an  online  catalooue.  After  preparation,  an 
offline  catalooue  is  nar-^  to  unoate.  An  online  catalogue  is 
easv  to  use  ana  rraini-;5in,  hut  ter-ninal  access  is  required. 
In  an  educational  enviroriment  this  apnroach  is  especially 
appeal  inn?  it  encou races  the  students  to  use  software  tools 
and  aives  then  ^he  ready  access  to  a  Proad  ranqe  of 
software  i«hich  thev  would  otherwise  have  only  after  gaining 
ConsioeraD'e  prcoran"rrina  experience.  Learning  to  take 
advantage  of  software  tools  is  .Tost  important  for  computer 
science  students,  esc^eciallv  during  the  later  quarters  of 
thecurriculuTi. 
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II.     A  P  P  K  f)  A  C  H    T  A  K  F  rj 


A .   .i  A  s  i  c  i  l^,  I T I A  L  s  p  e_  c  r  F  I  C  ^  T  I  f J  rj  s 

Aftpr  tho  decisions  to  use  an  online  catalogue  was 
made^  the  followinn  Questions  needed  to  be  addressed: 

a.  I"' hat  ■^unctions  must  the  svstem  cerform  ? 

h.  how  should  the  system  communicate  with  the  user  ? 

The  answei's  to  these  questions  are  really  basic 
functional   soecitications: 

The  system  has  to  search  system  resident  listings 
accorcjinc!  to  user  commands.  The  user  has  to  be  able  to  add 
new  listinas  and  also  to  be  able  to  change  his  listings. 

The  system  has  to  be  very  easy  to  use:  the  user  should 
have  no  trouble  even  the  first  time  he  ijses  it.  The 
approach  teken  to  accomplish  this  was  to  make  the  system 
entirely  self  or  o  mr^  tin  <t.  ho  command  vocabulary  is  used? 
instead,  the  system  as<s  Questions  and  provides/  with  each 
Question,  a  comolpte  menu  of  responses.  Ihis  philosophy  is 
incorn  pat  able  with  the  ■<eyword  approach  which  is  a  common 
feature  of  automatic  catalooinq  systems. 
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B  .   r>  A  T  A  S  T  R  t-i  C  T  U  PES 

'»t  this  r>oint-  the  Question  of  ^^ow  to  design  the 
structure  of  the  d-^ta  renresentina  the  listings  was 
addressed.  The  charact«=ristics  of  irnoortance  are: 

(IJ.  tasy  user  understandirility^   or   else   usability 
withou*"  understanriina. 

{ P )  .     The  ability  to  auicklv   identify   listings   whose 
Characteristics  include  those  soecified  by  the  user. 

C3).  'Reasonable  storage  density. 
Listind  lookup  was  exoected  to  occur  much  more 
freouently  than  the  creation  of  new  listings  or  the 
modification  of  o] n  ones;  consequently  the  raoidity  and 
complexity  of  listing  structure  uodatinn  was  not  considered 
to  be  an  important  criterian  for  data  structure  choice. 

The  following  alternatives  were  considered: 
1.   Tree  type  structure 


In  a  tree  fcrrr  software  director  y^  the  leaves  would  be 
individual  listinoSf  and  thp  nodes  woulci  each  be  a  common 
ancestor  o*  all  listin-is  wii"h  a  common  characteristic, 

One  fin  OS  listings  by  start  im  at  the  root  and  making 
choices  at  each  noder  until  reaching  the  listings  desired. 

Aavantaoe: 

The  mechanism  is  easy  to  understand. 
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i-'  i  sai'i  van  t"  aaes  : 

(1)  iJser  is  ♦orceo  t-o  answer  tHe  questions  in  a 

particularcrder. 
(c^)  Pointer  i-ncler^entation  is  troublesome. 

^ .        TaKle  tvpe  structure 


i"!ne  table  with  two  dimensions  is  created;  rows  would 
corresoono  to  progra^^  listimsJ  columns  to  characteristics. 
'/J  hen  a  listing  has  a  given  characteristic^  a  mark  is  d  laced 
in  the  appronriate  cell  in  the  table. 

Advan  t  ages : 

(13  Easv  for  uspr  to  comprehend. 

(2)  User  can  specify  characteristics  in  any  order. 
0  i  s  a  d  V  a  n  t  ;i  g  e  s  : 

11)  A  large  volume  of  storaae  is  reguired. 

{2.)     '^  variable  oimension  table  is  reguired 

because  both  listings  and  characteristics 
may  be  aiidec  as  the  database  grows. 

(3)  Proorai'  ourrose  classification  appears 

to  be  most  conveniently  organized  as  a  tree. 
C^)  Liser  needs  to  know  the  characteristic 
vocabulary  in  advance. 
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H  V  f '  r  1  -^  s  ^  r  u  c  t  u  r  e 


A  corr'pron-ise  between  t^^e  '•ree  and  tabular  aboroaches 
was  souoht  in  tne  f  orr  o  ^  a  hybrid  structure,  ^e  re  the  user 
rrav  cncture  a  table  of  tne  form  exolained  above/  and  he  may 
think  of  the  =;earch  process  as  one  of  choosing  blocks  of 
coluf^ns  to  omit  anrj  columns  to  save/  successively  refining 
the  choices/  until  the  listinos  are  narrowed  down  to  a 
small  numrer  satisfyino  the  characteristics  he  needs.  The 
selection  of  characteristic  columns  is  organized  in  a  tree* 
thouah  the  user  ne^d  not  f-, e  aware  of  this.  His  first  choice 
the  first  level  of  the  tree  -  is  this:  from  among  all  of 
the  indeoendent  categories  of  software  classifications  he 
chooses  those  from  arronn  whose  subdivisions  he  wishes  to 
choose.  For  example  a  user  whose  goal  is  to  find  a  sort  for 
the  If^M  ibO  will  look  over  the  first  menu/  containing 
"lanouage"/  "hardware"/...  and  will  specify  hardware  for 
further  clarification/  ano  may  ianore  lanouage  if  any 
langua'ie  will  do.  The  sundivisions  of  each  of  the  chosen 
major  subdivisions  of  each  of  the  chosen  cateoories  are 
presented  for  review  -  then  tne  minor  subdivisions  -  and  so 
forth/  and  the  user  mav  refine  his  choice  along  any 
direction  as  lond  as  ne  wishes  until  further  subdivisions 
areexhausted. 
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The  ohvsical  form  chosen  for  this  structure  was  a  tree 
where  each  node  contains  a  <"ahile  of  names  of  its 
suhorfjinato  node  tables  ano  names  o"^  software  listings 
which  have  the  characteristics  of  that  node  but  are  too 
general  to  be  listerj  amona  the  node's  subordinate  nodes. 
(fJotice  that  a  given  listing  will  tyoically  be  referenced 
in  several  different  parts  of  the  characteristics  tree^ 
most  likely  once  under  each  major  subcategory  of  the  root.) 

The  relational  database  mod^^l  offered  an  easy  mechanism 
for  maintenance  of  these  node  tables. 

At  this  point  it  was  decided  to  use  the  IN (7 WES  database 
m. anaaement  System  available  on  the  MPS  comouter  laboratory 
PDP-11  computer  unoer  the  UNTx  operating  svstem. 


C.   LANGUAGE  SF.LECTIOM 

The  system  proarams  are  written   in   QUEL   (the   INGRES 
auery  languaoe)  embedded  in  the  programming  language  C. 
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L'  .   C  L  'I  6 S  I  F  I  C  A  T  I  0 ri  OF  S C  F  T  /;  A  P E 

A  plausihlef  intuitiv/'=  so'^tware  classification  was 
souoht  hut  no  exisrina  svster".  ^ee^ed  to  be  entirely 
suitable;  rrorpoverf  th'^y  ciiffereH  widely  suqqestinq  that 
classification  ooodness  't^^v  be  in  some  deciree  relative  to 
the  environrrent  is  wnich  the  catalonue  is  to  e^riployeed.  So 
it  was  oecidecJ  to  imnlen^ent  a  variable  type  of 
classification  which  eacn  user  aaency  can  configure  as  it 
s  e  e  s  f  i  t  . 

Here  isanexarrpleclassi+ication: 
1-  Co^T'Ou^er  software  tools 

iJneratino  systerr; 

C  o  rr.  p  i  1  e  r 

Languace 

Tir^e  sharina 

i^'i  c  roprrara''n'Ti  no 

Uebuaaino  aios 

f?-Uataf^anipulatinqtools: 
Tpxt  eoitinq 
Sort 
K  e  r  q  e 
U  a  t  a  ri  a  s  e 

Test  qata  qenerators 
Oata  structures  like  stacks  queue  etc. 


-\U' 


i^'-ar  h  .     fijnctions 

f-'  r  o  t:^  a  f  ■  i  1  i  t  v 

U  c  e  r  a  t  1  o  r,  3     r  e  s  o  -^  r  c  h 

'4-  easiness  applications 
t,  n  a  i  n  e  p  r  i  n  G 
f-  i  n  a  n  c  i  a  1 
Inventory 
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III.   OFSIGM   FEATURES 

Ibis  is  imDlenente':!  as  an  I\'GRES  database.  A  tree 
structure  is  simulated  usina  relations.  A  small 
demonstration  database  is  shown  in  figure  1, 

The  root  c  f  t  ^  e  tree  is  the  "fraintable"  relation  which 
is  loaaeo  at  system  installation  time  and  can  not  be 
chanaed  t:y  the  user.  f-^'aintable  tuoles  show  the  main 
branches  of  the  tree:  these  are  the  independent  cateqories 
of  software  characteristics/  like  1 anauaqe  and  hardware. 
Every  noae  of  the  tree  is  a  relation  with  two  fields^ 
ridfrecorn  10)  ano  cm  a  me  (class  record  name).  Rid  is  used 
as  a  key  to  all  actions.  If  a  ria  is  eoual  to  zero^  it 
m.eans  therp  is  a  rplation  with  that  name  which  further 
sut^-'iivides  the  current  relation.  If  a  rid  is  greater  than 
zerof  It  means  crname  is  the  record  name  itself.  One 
listina  may  fano  usually  will)  be  found  recorded  in  more 
than  one  branch  (relation).  ThAre  is  no  information  about 
the  listinos  on  tne  tree  relations?  only  rids  are  shown. 
All  other  information  about  a  specific  listina  can  be  found 
in  tho  r<='cnrrif\]e  ano  whr  (where)  relations^  which  are  in 
thp  px  ample  shown  in  ficure  (^  . 
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fv.      cnrj[,\';      amo      TFSTIfJG      phases 

ihe  iSIS  svst-eT  was  Resinned  in  a  too  down  manner. 
Firs'"  tt^e  main  frarr, e  of  thp  svstrrr  was  aesianedr  coded  ana 
tf^stea.  Then  the  cri'riary  function  o'f  the  system/  the  search 
crnara^-n,  was  desianeo/  coded  and  tested.  As  the  search 
oroarai^  beeches  ]  a  rof  r  some  orohlems  oeaan  to  surface.  The 
C  cc^oiler  oeain  to  print  errors  about  undeclared  variables 
i-jhich  were  in  fact  ceclared.  At  this  ooint  the  output  of 
bUUEL  orecomoiler  was  checked  and  it  was  seen  that  similar 
statements  in  di-^ferent  oarts  of  the  source  code  were 
Cranslateo  into  C  as  cifferent  codes.  When  the  source  was 
diviaed  into  smaller  files/  thp  EQUFL  orecomoiler  seemed  to 
work  correctlv. 

After  compilation  a  as  acco^olished  the  testing  began  to 
take  much  more  timp  than  anticipated.  The  author  was 
tjnorpp^red  for  the  deliberateness  with  which  INGRES 
functionea. 

/ihpn  run  time  error  '^'essaoes  surfaced/  it  was  difficult 
to  find  out  what  exactly  was  wrong  because  two  compilers 
and  the  I '  I G  K  E  S  s  y  s  t  <=>  m  were  all  involved. 
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Eisi'JtL  noes  nor  allow  declaration  of  inteaer  arrays.  For 
this  reason  the  int'^ner  array  used  as  the  input  buffer  was 
I J  e  c  1  a  r  e  d  as  a  C  \/  a  r  i  a  h  1  p  a  n  ',i  then,  when  r  e  q  u  i  r  e  d  ^  each 
value  /v/as  ta<en  one  ny  one  fro^^  the  C  arrav  into  an  EQUEL 
V  a  r  i  a  o  1  e  f  o  r  u  s  e  . 

The  search  prooram  is  cofnooseo  of  apDroximately  10  00 
tines.  It  niay  caus^  interactive  problems  if  run 
concurrently  with  add,  delete  and  moaify  programs.  The 
search  routine  is  the  key  co^iponent  of  ISIS.  It  is  possible 
to  operate  a  reduced  ISIS  by  running  just  the  search 
function*  rraintaininq  the  database  (adds^  modifications 
and  deletions  J  bv  using  the  lMGr?ES  query  language  QUEL. 


-?0- 


V.        CONCLNSHJ'"] 


A  .  o  Y  S  1 1  "-1       C  'i  P  A  FU  L  r  T  I  E  S 

Thp    systeTi    has     the     foMo^/ina    caDabilities: 

-i.S'^arc*^: 

The  system  searches  "for  resident-  listings  according  to 
user  specifier)  qualifications.  The  user  can  choose  ud  to  25 
qualifications  for  a  given  search. 

D.  Add; 

Any  user  can  add  a  listinq;  there  is  no  need  to  get 
"add"  permission  from  the  TSIS  manager.  The  principle 
restriction  for  addition  is  that  the  deptn  of  the  tree  can 
be  a  maximum  of  around  '^0  arcs,  '/ihen  a  listing  is  created/ 
the  listing  "owner"  assigns  a  one  letter  oassword. 

c  .  '"l  o  d  1  f  V  : 

The  owner  o+  a  listing  can  moaify  either  the  listing 
descriotion  and/or  t'^e  "where  found"  information. 

d .  Delete: 

The  owner  of  a  listina  can  delete  his  listing. 

Currently  th^  131 S  system  can  has  a  maximum  of  32767 
listims  recause  listinos  ar'^  assigned  2  bytes  unigue  ID 
numbers,  i-iv  cnamim  all  "ril"  attributes  to  i^  in  relation 
declarations/  «-he  system  could  hold  up  to  2  ,  \7  U  ,  ^481 ,  tm 
1  i  s  t  1  m  s  . 

Further  information  may  oe  found  in  the  user's  manual. 
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H.    PROBLEMS  :JirM  JWt     SrSFt^-l 

On]  V  one  user  snoula  use  the  search  o  roqr  a^  or  add  r 
-lelete  anrt  modify  orooran-i  ^^  a  qiven  time.  If  more  than  one 
user  is  usino  one  of  these*  ISIS  may  not  work  correctly 
oecause  so'^e  te-^oorary  ISIS  information  is  stored  in  shared 
I  '^  G  w  f  5  relations. 

System  response  is  very  slow  even  when  the  listinq 
database  is  miniscule.  This  is  aooarentlv  a  characteristic 
of  the  INGRES  system. 

It  is  imnosible  to  crint  a  hard  copy  of  the  system 
listioTS  in  catalogue  form  at  oresent.  Each  branch  point  is 
emoodied  in  a  relation  and  all  relations  can  be  printed  but 
it  is  hard  to  extract  a  catalogue  form  from  them.  By 
orintinq  "recorafile"  ani  "whr"  relations  all  listings  in 
the  system  can  oe  S'='en  as  a  list  form. 

It  would  oe  preferable  to  use  a  more  efficient/  faster 
database  system  to  imolement  ISIS/  or  not  to  use  a  database 
sysr»=im  at  all. 
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C  .    POSSIBLE  0  T  H  F  R  USAGE  AREAS 

The  ISIS  svsteT  w3<^  'lesianed  with  software  cataloguing 
in  Tiinci;  however  the  sys^em  could  be  used  in  many  different 
aoplicationsf  for  exaTiole*  the  assionment  of  oersonnel  to 
jotr^s.  Personnel  characteristics  could  be  put  into  relations 
an':i  when  a  oerson  is  needed  for  a  soecific  job/  he  can  be 
foun:i  through  the  search  process. 
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APPEr.  OIX       A 
U  S  t  P  '  S     R  E  F  F  P  E  N  C  E     MANUAL 


The  ourooses  of  this  manual  are  threefold: 

1.  To  introduce  the  program  to  facilitate  maintenance. 

2.  To  Provide  informa*'ion  to  the  ISIS  system  manager  to 
enable  him  to  '<eeo  t^e  system  efficiently  configured. 

5.  To  Provide  the  user  with  more  detailed  Knowledge  of 
the  system  and  to  list  the  error  conditions. 

Punning  the  system  is  verv  easy  and  generally  no 
previous  experience  is  reguirea.  The  first  time  user  should 
not  need  to  read  this  manual;  he  should  simply  log  in  as 
"isis"  and  then  type  "go". 


-P.  a- 


TnbLE   OF   COMTFMTS 


I  .    INIFOOUC  r  IlV' 25 

II.  ISiS  f-FliG^'Af-? 26 

A.     Gti\'tRAL  VI  Ft- ?6 

B  .    S  t  A  K^  C  h  P  R  0  G  h?  A  N 2  8 

1.  General  view " 28 

2.  SreciHcations  of  search  program...., 52 

C.   .  ADD-DELtTE-wnDIFY  PROGRAM 5b 

1.  General  View 56 

2,  Soec  i  f  i  c  a  t  i  ons  of  Arid-De  1  e  t  e-^'^lod  i  f  i  v  Proa..^O 

III.  b  Y  S  T  t  ^■  G  E  h  £  P  A  T  I  0  N a  2 
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I.     INTRODUCT ION 


Instruction t3l  Software  InforTation  System  (ISIS)  is  an 
online  catalog ue  esoecially  -iesioned  for  computer  software. 

'Jsinn  isrs  a  user  n^av  record  the  existence  and 
characteristics  of  a  new  proaram,  and  mav  make  searches  for 
existing  software  by  citina  the  characteristics  desired. 
Characteristics  are  specified  by  selection  from  a 
succession  of  nnenus. 

ISIS  is  irrolemented  on  a  PDP-11  computer  operating 
under  the  iJ^IX  ooeratinq  system  using  the  INGRES  data  base 
manaaement  system.  It  is  written  in  the  QUEL  query 
languaie  embedded  in  the  programming  language   C. 
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II.    ISIS   PROGRAMS 


A.  C7cNrRAL  Mlf'i 

Ihe  systeTi  is  comnosed  of  i:hre<=  orograms: 

1.  Miin  '^  roqr  aT,     (  isismain.c  ) 

This  proaram  is  vjritten  in  the  lanauaqe  C.  Uoon  login 
as  "isis"/  main  is  executed  automatically.  Then,  according 
to  user  instructions/  control  is  transferred  to  one  of  the 
Droqrams  in  fiqure  ^.  Isismain.c  is  very  straightforward 
and  neeos  no  exolanation. 


1  s  1  s  m  a  1  n  .  c 

main   D  roa  ram 


adm ,  q 
Add-Oel et e-Modi  f y 
D  r oq  ram 


Figure  i.        ISIS  orooram  heirarchy 
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(?.  Search  Program     I  src.q  ) 

This  tirooram  is  vvritten  in  QUEL  (the  ITiGRES  query 
lanauaoe)  an-i  C.  It  does  a  search  of  ISIS  software  listings 
accoroim  to  user  oualifications  anc)  disolays  the  results. 

3.  AciQ-L-elet<=-'*''orlify  Proararr  (  anm.q  ) 

Ihis  proqram  is  also  written  in  (OUEL  and  C.  It  allows  a 
user  to  aad  new  listinns  to  the  system.  It  also  allows  a 
lis  tin  a  originator  to  modify  or  delete  an  existing  listing. 

^.       Data  Structures 

Ihe  orinciole  ISIS  oata  structures  are    described  below: 
a.  Ihe  relation   "record  file"  contains  a   master   file 

of  the  listinos,  with  each  identified  by  name  and    unique  ID 

nuiTiber  (PID). 

o.   information   about   where   to   find   the   software 

corresDonoino   to   the   listings   is  in  the  "whr"  relation/ 

identified  by  uniaue  10  nu""her. 

c.  Ihe  main  software  characteristic   classes  are       the 
t  u  o 1 e  s  of  t  n  e   "  m  a  i  n  t  a  b 1 e  "  relation. 

d.  «  variable  set  of   "nocie"   relations   embodies   the 
tree  structure. 
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tach  node  relation  contains: 
1.  Listino  na^ips  and  10  mjrrhers- 

an  o  /  o  r 
(i .     The  na.Ties  of  i-ieD=»ndpnt  node  relations* 
iief^tifieJ  ov  ^ID's  of  zero. 


B.   oEAKLH  PROGr^AM 


1.   General  View 


The  search  oroaram  searches  for  listings  of  existing 
software  -nef^tino  the  characteristics  soecified  by  the  user. 
The  user  scjecifies  these  oy  answering  Questions  posed  by 
ISIS. 

System  execution  is  slow  even  when  the  listing  database 
is  Short;  to  orevent  a  long  search  over  a  short  list*  the 
user  may  t)e  willing  to  scan  a  list  of  all  of  the  records  in 
the  svsreT.  For  this  reason  there  is  an  option  to  display 
all  recorns  at  the  beoinnino. 

A  general  flowchart  of  the  search  program  is  given  in 
fiaure  '^i.  ^  f  t  ^  r  the  user  snecifies  some  gualifications* 
the  system  replies  how  many  listings  meet  the 
gualifications;  the  user  may  then  either  see  the  listings 
whicn  meet  his  Qualifications  or  he  may  change  his 
aualitications. 

^fter  one  search  has  oeen  finished*  the  user  may 
continue  ^/ith  other  searc*^es  or  he  may  exit  from  the 
system. 
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/\ 


maxn   src.q 

prints  introduction 


\/ 


counts  #  of 
listings 


> 


< 


display  all 
listings 


<■ 


branch 


\/ 


\/ 


branch 


^ 


help 


L  exit   J 


> 


help 


~^\    exit  ) 


<r 


qmainl (  ) 

prints  general  classi- 
fications to  begin 
qualification. 


\/ 


> 


qmain2 (  ) 

prints  present  qualifications 


(  exit   )-<- 


help 


< 


\/ 


branch 


< 


\/ 


displ2(  ) 
display  listings. 


\/ 


> 


\/ 


/\ 


begin  qualification 
at  the  beginning 
preserving  present 
qualifications . 


> 


qsls2(  ) 
further  qualify. 


^ 


> 


V 


deleteqC  ) 
delete  some 
qualifications , 


^ 


Figure  4.   The  general  flowchart  of  search  program  src.q, 
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The  functional  diagram  of  the  search  proaram   is   shown 
in  figure  S. 

The  sourcp  cooe  for  the  search  proaram  is  contained   in 
three  files. 

a ,  F  i  I  e   s  re  .  o 

The  co'le  in  this  file  nerforTS  the  actual  search;  it  is 
comoosea  of  the  following  functions? 

main   :   calls  introc:i  and  rrinsrch  functions. 

intro  :   orints  the  introduction  and  invokes  INGRES 
Ljsinn  the  ISIS  database. 

mnsrc  :   calls  the  search  routine^  then  exits  ISIS. 

search:   .-nonitors  the  search  process  bv  calling 
fi.j net  ions. 

counrl:   counts  number  of  listinas  in  the  system. 

dioll  :   c:)isnlays  all  listinas  in  the  system. 

omainl:   monitors  the  Qualification  process. 

prelsl:   puts  relations  onto  stack  1, 

nslscf  :   one  by  one  gets  a  relation  name  from  stack  1/ 
qualifies  it  and  outs  results  onto  stack  2. 

omainc?:   monitors  the  rest  of  the  qualification. 

CDs2sl:   copies  stack  2  to  stack  1. 

oraual:   orints  current  Tualifications. 

rieletq:   neletes  qualifications  from  stack  1. 

qiSDl(?:   disolays  listinas  according  to  qualifications. 
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b.  f-"ileencsrc.a 

This  file  is  included  in  src.a  at  comoile  tirre. 

Trie  reason  the  search  orogram  is  separated  into  two 
fileSf  src.o  and  encsrc.o,  is  that  the  EiQUEL  precompiler 
noes  not  seem  to  work  correctly  for  long  source  files. 

This  file  orovides  the  following  functions: 


d  i  so 
cnt  tb3 
d  i  s  1 1)  3 

q  e  t  n "" 


displays  0  tyoe  qualifications.- 

counts  taole3  tuples. 

displays  listinas  in  table3. 

oets  a  listing  number  from  terminal. 


C.File   com.o 

This  file  is  common  to  both  the  search  program  and  the 
Add-Delete-i^'odifv  program.  It  provides  tne  followino 
f  unc  t  i  ons : 

cylbrc:   evaluates  the  first  usage  of  sea^rch  prooram, 

helpis:   prints  information  helpful  to  a  user  who  has 
"lost  his  way". 

greadct   gets  a  character  from  terminal. 

areadn:   aets  a  maximum  of  ten  integer  numbers  from 
terminal  . 

msqerl:   prints  an  error  message. 

infohe:   prints  ISIS  information  of  a  general  nature. 

2.  Specifications  of  the  S«='arch  Program 

A  3e  5  rcr\  is  Performed  by  specifying  the  characteristics 
of  the  sought  for  software.  As  the  search  continues/  these 
characterictics  are  successively  refined. 


-33- 


■Se'iPCh  is  'lone  on  a  sinnulai'e'i  tree  structure.  tvery 
noie  of  the  tree  is  a  relation.  The  root  of  the  tree  is  the 
"maint3t?1e"  relation.  In  order  to  he  a  in  the  search  process/ 
a  user  must  cnoose  at  least  one  branch. 

The  QLjalification  orocess  uses  two  qualification 
stacks/  eacn  ?5  eleT^ents  lono/  so  the  user  can  have  a 
maximuTi  of  2S  qualifications  at  anv  one  time.  Stack  1  is 
used  as  the  main  stack?  stack  2  is  i-ised  as  an  auxilary 
stack  ivhen  c^anqinq  qualifications. 

Each  stack  record  has  two  fields: 

a.  qualification  naf^e 

b.  qualification  tvDe»  which  has  value  ^  t  W  or  D. 
These  cooes  are  used  to  snecify  actions  to  be  performed 
when  the  stack  is  processed. 

'M:  this  qualification  shows  miscellaneous  tuples  which 
are  tuples  with  ID  nuTbers  qreater  than  zero  in  the  given 
relation. 

^i  :  Instruction  to  write  all  the  tuples  of  a  qiven 
relation  ^hich  havp  an  ID  nutioer  qreater  than  zero. 

D  :  Instruction  to  display  all  tuoles  of  this  relation 
i/vhich  are  qreater  than  zero?  there  exist  here  some  tuples 
whicf^  have  Ii")  nurrbers  ecual  to  zero/  meaning  there  are 
furtner  subdivisions.  So  H,  in  effect/  will  cause  branch 
recoras  to  be  displayed  also. 
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The  disc  lay  function  (  cnsrl2  )  uses  stack  1  records 
an  3  accoroin-)    to   the   Qualification   type   it   employs 

different  iiethods  to   find   listims   which   meet   all   the 
speci  fie  aijal  i  fica^ions. 

To  disolav  '•'  ana  t"-  tvoe  aualifications^  three  table 
relations  no  men  tanlel»  taole<?  and  tablei  are  used.  Tablel 
and  tabled  are  Ljsed  for  listina  ID's  which  meet  one 
qual  i  fication.  '1  ote  that  the  disolay  Process  is  an  AND 
operation  not  an  OR  operation^  so  table3  identifies 
listims  which  meet  all  previously  processed 
aual  i  fications. 

It  is  more  aifficult  to  display  f)  type  qualifications^ 
which  h,^ve  branch  relationSf  because  it  is  also  necessary 
to  find  out  and  evaluate  all  listinas  in  the  branches.  For 
this  reason,  in  addition  ^o  the  three  table  relations 
mentioned  aoove,  two  more  relations  named  tabledl  and 
taoleO'?  are  used.  All  listina  rid's  for  a  given 
Qualification  are  saved  in  tabledl/  and  subbranch  relation 
names  are  saved  in  tabledc^.  One  tuple  is  taken  from 
taoled'?;  if  this  tuple  shows  a  branch,  it  is  evaluated  and 
the  res u It i no  listino  lO's  are  put  into  tabledl;  branches, 
if  any,  are  out  to  tabled?  aaain,  and  the  process  continues 
until  tabled?  is  empty.  At  this  time  tabledl  has  all 
listinTS  which  meet  D  type  Qualification, 
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iJnly  cne  user  at  a  tinne  c.=^n  errc)oy  this  Dart  of  the 
orocdTi;  otherwise  these  tarles  become  confused.  If  this 
situation  is  suspecteo  the  user  should  check  other 
terrninals  tor  a  user  using  disDlayJ  then  wait  and  try 
a  q  a  i  n  . 

^■ore  than  one  Ljser  n^.-jv  be  doim  the  qualification 
orocess  ^t  onc*^?  onlv  cjisolay  rrust  be  done  serially. 


-36- 


C.    Ai;0-OKLF  Th:-^n')OIF  Y   PROGRAM 


1.   General  Vie' 


Ihis  oroararr  is  used  to  arid  new  listings  into 
the  syste-n  ana  to  delete  or  modify  existing  listings.  A 
oeneral  flowchart  of  tne  orooram  is  aiven  in.  figure  6  and 
the  functional  diagraTi  in  figure  7. 

The  source  code  of   the   oroarati   is   connoosed   of   the 
follow  in a  files: 

a  .  f-  1  1  e   ad-n  ,  a 

Ihis  file  oerforms  a^H,  g^lete^  and  rpodify  actions  and 

invo'<es  functions  in  the  other  files. 

File  aim. a  contains  the  following  functions; 

calls  infohe  and  nranch  functions^  and  invokes 


main   : 

h  r  anc  n  I 
ad  i  : 
CI  e  ^  o  a  r  : 

a  D  r  f  w  h  : 

a  d  i  r  1  s  : 

p  u  t  s  <■  r  : 


the  database. 

branches  to  addf  delete  or  modify  processes 

monitors  add  orocess. 

nets  oanameters  for  a  listing  from  terminal 

aooends  listings  to  rf=>corifile  and  whr 

relations. 

adds  listings  to  relations  by  callina  other 

funct  ions. 

outs  relation  name  chosen  by  user  on  the 


stack, 
ncurcl:   orints  current  class  and  subcateaories. 
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j  main  adm.q     | 
j  prits   information 


begin  ADD 
get  new  listing 
parameters  from 
terminal 


^^ 


-<-- 


branch 


\/ 


append  new  listing 
to  record  file 
and  whr  relations 


> 


\/ 


\/ 


begin 
DELETE-MODIFY 
get   ID//  and 
password 


branch 


add  listing  to  : 
current  relation' 


\/ 


add  to  existing 
I  branch  relation 


\/ 


A 


\/ 


create  a  new 
branch  relation 


V 


<r 


branch 


\.' 


\/ 


^/ 


\/ 


delete  all 
information 
for  a  given  ID# 


> 


> 


help 


:::-. 


-(exit) 


K- 


YES 


\/ 


branch 


\/ 


branch 


<■ 


\/ 


\/ 


\/ 


<-. 


A 


modify  where  ! 
relation      [X 


-i. 


modify  descrip- 
tion in  record 
file  relation 


■> 


Figure  6.   General  flowchart  of  Add-Delete-Modify  Program  adm.q. 
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ad'icur:   adds  a  listina  to  current  relation. 

newDrc:   a 'ids  a  listina  to  a  newly  createa  subcateqory 
relation. 

exiorc*   aids  a  listing  to  one  of  the  existing 
branches. 

b  .  File   e  n  c  a  d  "^  .  q 

This  file  IS  included  in  adrn.o  at  compile  time.  These 
two  files  \Ne  re  solit  for  the  same  reason  that  the  search 
routine  was  oivided;  the  EiJUEL  precompiler  seemed  unable  to 
process  both  a*"  once. 

File  encadm.q  has  the  following  functions? 

oelmocj:   qets  oarameters^  and  monitors  delete  and 
modify  Processes. 

aetnum:   qets  a  listing  ID  nLjmber  from  the  terminal. 

delete:   beginning  cart  of  the  delete  process. 

prodlt:   deletes  a  list.inq  from  a  relation, 

mo>iify:   beainning  part  of  the  modify  process. 

mdewh  :   mooifies  listing  description  and  where 
informat  ion. 

c.  File   com.q 

This  file  contains  functions  common  to  the  search  and 
Aad-Oelete-i^iooifv  programs.  For  more  information  refer  to 
the  search  proaram  on  rage  3?. 
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d .       specifications  o^     Aad-Oele»"e-'^iocjifv  orogram 

The  ^DD  process  user  can  enter  his  listing  into 
existing  characteristic  relations  or  he  can  create  new 
Pranch  relations  and  put  the  listino  into  them. 

The  ADU  process  car  staci<  i.jd  to  a  maxiTtum  of  25 
relation  naires.  This  coes  not  rrean  the  user  is  restricted 
to  putting  his  listings  into  fewer  than  <?b  relations^  but 
rather  that  he  can  not  have  rrore  that  d^  further  divisions 
identifier  ana  pending  at  any  one  tiine. 

iAhen  a  new  relation  is  created  as  a  new  branchy  the 
save  command  must  be  performed.  This  is  done  in  file  adm.q 
by  the  newbrc  (new  branch)  function.  The  date  supplied  to 
the  SAvF  command  must  be  advanced  periodically  by  the  ISIS 
manaaer;  other wiser  when  the  aate  is  reached^  the  relations 
r^av  be  inadvertently  Purged,  It  is  probably  best  if  the 
save  dare  is  identical  to  that  used  to  save  other 
relations. 

DtLtTE  and  yOOIFY  processes  at  the  beginning  use  the 
same  gelmod  function  to  identify  the  owner  of  the  listing 
which  is  to  oe  aeleted  or  modified.  For  this  reason  the 
user  lives  a  listing  ID  number  and  the  system  checks  to 
find  out  if  there  is  any  record  with  that  number. 
Afterwarris  the  oassword  is  checi^ed;  the  password  was  set  up 
aurinq  the  A0i3  process  when  the  listing  was  created;  it  is 
one  character.  For  example  it  may  be  ","  (fullstoo)  or  any 
letter  or  oigit.  After  the  correct  password  is  received^ 
the  delete  or  modify  process  can  begin. 
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UtLEfc  P^UJCESS: 

This  orocess  'ieletes  a  listing  frcr  "recordfile"»  the 
Tiaster  listin-T  relation,  ana  fron^  "whr"/  ^-he  where  found/ 
relation/  and  r^eoins  to  search  the  branch  relations 
starting  at  the  root,  'ihen  the  listing  is  found  recorded  in 
a  relation,  the  subbranches  of  that  relation  are  ignored. 

'A' hen  a  listing  is  deleted  fronn  a  relation,  if  there  are 
no  more  listings  in  that  relation,  the  relation  is  also 
destroyed.  If  the  oarei^t  has  no  entries  other  than  the 
aestroved  relation  then  the  oarent  relation  is  also 
destroyed;  otherwise  the  child  relation  name  is  deleted 
from  the  parent. 

The  delete  orocess  emnloies  the  same  stack  used  by  the 
add  process.  The  function  (iumwrt  (<jummy  write),  which 
nrints  the  too  5  elements  of  the  stacK/  was  used  in  the 
testing  phase  of  the  program  and  was  left  in.  It  can  be 
reactivated  oy  removing  the  two  slashes  "//"  (comment) 
previous  to  dumwrtC).  Sv  changing  5  to  25  in  the  "for" 
state m'=nt  in  dumv-irt,  all  stac-<  elements  can  be  written 
during  the  delete  and  add  processes, 

^UJDIFY  PROCtSS: 

It  is  only  oossiDle  to  modify  listing  descriotion  and 
where  information.  If  the  user  needs  to  moaify  the  tree 
entries  ■^or  a  list  inn  he  must  first  use  DELETE  to  remove 
the  listing  entries  and  t-tien  use  ADD  to  create  revised 
ones  . 
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Til.    S  y  S  T  r  ^''  r,  E  f  J  E  R  '^  f  I  0  hi 

This   sect-ion   explains   how   to   install    ISIS.  ISIS 

requires    the   database   manaqenant   svstenn   INGRES  which 

reouires  the  UiJIX  oneratinq  systerr   which   runs   on  PDP/11 
hardware.' 


A.  DATAR.iSE  SETUP 

The  ACTUAL  software  database  is  named  "isisO". 

If  a  uEViOMSTPAT  lOn  natabase  is  desired^  it  should  be 
named  "isisl".  A  demonstration  database  is  not  necessary. 

The  database  is  creafed  as  follow. (The  "%"  sign  is  the 
iJrJiX  prompt  sy^nol) 

First  rrount  HjGRES.  At  MPS  this  is  Gone  via  a  UNIX 
shell  file^  invoked  as  follows! 

%  /usr/ingres/svSTint.sh 

■low  create  database  isisO: 
%creatdrisisU 

Invoke  PiGRES  ooeratino  on  the  newly  created  database: 
^,  inares  isis'^ 

The  If, ORES  promnt  is  "to  *". 

''iow  create  the  main  listino  and  location  relations  and 
the  "root"  relations  for  the  atribute  tree: 
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UO 

create     recor'ifile(riri=ic',     pn^mp  =  clc:'f     rdes  =  c50,     pswrd  =  cl) 
create    whr(rid    =     ^  2 ,     rdes    =    cSOl 
create    i-naintaoleCcrname    =    cl2) 

i\'Ow  "■-■'A  I  f^  "I  ARLc  "  /  the  root  relation,  n^ust  be  loaded 
v-iith     the    nances    of     its    direct     aescen dents. 

f"or    exa^irlef 

aooend  to  rPaintableCcrnaiip  =  "corrouter") 

Nowf  "comouter"  is  apoenoed.  Branch  names  have  a 
IT, aximuT  of  li^  characters. 

After  fillina  the  n-a  in  table,  create  the  corresponding 
node  relations. 

For  ex  amp  1 e  r 

create  comDuterCric  =  ^  2 ,     crname  =  cl?) 

Certain  other  relations  which  are  used  by  ISIS  as 
temoorarv  storace  during  execution  must  also  be  created/  as 
f o 1  lows: 

create   taolelCrid  =  i2) 

create   table^(ric)  =  i^) 

creatp   taDle3(rid  =  i?) 

create  tabledlfrid  =  ^  2) 

create  t ab 1 ^d? ( c rname  =  c\2) 


-'in- 


All  the  essential  relations  hayp  now  been  created.  D(J 
MOT  FURGfl  to  "save"  relations  ud  to  a  reasonable  date/  for 
examr.le  1  year  ahead.  For  examcle: 

save   T'^lationnaTie  until  jan  30  19/9 

Keoeat  this  ccntianc  for  each  relation  which  has  been 
created. 

Now  the  database  isisO  is  ready.  If  it  is  desired  to 
create  the  isisl  de^^on  s  t  ra  t  i  on  database^  the  orocedure  is 
repeated  as  aoove*  excect  that  the  first  comnnand  would  be 

/i  create  isisl 
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B.   COMPILATION   OF   PROGRAMS 


To  compile  the  main  program  in  file  isismain.c  use  the 
command 

%cc  isismain.c 

Now  rename  the  output  "isis"? 

%  mv  a. out  isis 

To  compile  the  search  program: 

First  use  the  EQUEL  precompiler  for  the  files  which  are 
used  by  search, 

%  equel  src .q 

The  output  is  in  file  src.c 

%  equel  encsrc.q 

The  output  is  in  file  encsrc.c 

%  equel  com.q 

The  output  is  in  file  com.c 

These  are  all  C  files.  Compile  them  using  the  EQUEL 
1 i  brary : 

%  cc  src  .c  -1 q 

The  output  is  in  file  a, out?  rename  it  "isissrc"^  as 
f ol 1 ows : 

%  mv  a .out  i  s  i  ss  re 

"isissrc"  is  an  executable  file  which,  when  invoked, 
performs  an  isis  search. 
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To  compile  the  Add-Oelete- Modify  program: 
Firstf  use  the  equel  precompiler  for   the 
are  used  by  this  program. 
%  equel  adm.q 
The  output  is  in  file  adm.c 


files   which 


%  equel  encadm.q 

The  output  is  in  file  encadm.c 

The  file  com.c  was  already  created  during  search 
comp  i 1  at  i  on , 

Now  compile  the  ppogram^  using  the  EQUEL  library. 

%  cc  adm . c  - 1 q 

The  output  is  in  file  a. out. 

Rename  it  "isisadm",  as  follows: 

%  mv  a .out  i  s  i  sadm 

Now,  "isisadm"  is  an  executable  file  which,  when 
invoked,  performs  isis  add,  modify,  and  delete  operations. 

Now  remove  unnecessary  files: 

%  rm  src.c  encsrc.c  com.c  adm.c  encadm.c 

Isis  is  now  ready  to  use. 
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C.   Sh^'PLt   TUTOKiAL 

Tnis  tutorial  is  o  reoaren  to  aive  the  user  a  aeneral 
idea  ot  ho.~  tne  svsteT  interacts  with  the  user.  This 
tutorial  covers  the  search  orocess  only;  it  does  not  chanae 
the  system  resiaent  aata.  It  uses  the  ISIS  cier^onstration 
datat.'ase  naTieci  "isisl"  whose  relations  and  linkage  schema 
are  shown  in  figure  1  on  naqe  16. 

-Type  one  o+  the  follow  inn  numbers  in  "  " 
"1"   to  SEARCH   ISIS   records 
"?"   to  ADO  new  ISIS,  DELETE  or  MODIFY  existing  ISIS 

reco  rds 
"  3  "   t  o  Q  U  I  T  I  S  I  S 
go  > 
1 

ISIS  rreans  Instructional  Software  Information  System 
;^r  i  t  t  en  at  NPS 
***  when  you  need  helo/  at  some  key  Doint 
tyoe  "h"  to  aet  HELP  *** 
gooa  1 uc  k 

For  mere  information  tyoe      "y^s" 

Otherwise  PUSH  RETURN  KEY  go  >  yes 

This  program  is  an  online  software  dictionary 
Therearet'-'omajorcroarams: 
l.SEARChprooram; 

User  can  find  existina  software   by   conversing   with 
the  computer. 
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2  .     A  i;  T' ,  u  t.  L  E  r  F_  ,  ~^i  f  ■'  l;  J  F  r  o  r  o  o  r  a  rr. ; 

User  c^en  a-'ivertise  his  own  software  by  listing  it 
/•ith  the  svsteTi.  Provisions  for  Tiodifyina  and  deleting  a 
listin-i  ore  included.  Both  orooraTis  are  easy  to  use.  They 
do  not  need  previous  exoerience.  Just  type  answers  after 
"  O  O  >  "  'Ti  a  r  k  s  . 

The  orooraTis  are  written  in  data  sublanguage  QUEL/ 
suooorted  Dy  I'^GPES  cata  base  management  system^  and  the 
Program rrino  lanciuaoe  C. 

-Type  one  of  the  follo/jings  in  "  " 

"1"   to  oegin  ACTUAL  usage 

"^"   to  beoin  Dt  ^QiXST^A  T  ION  usaae 
oo  > 
^searchinorooress... 

There  are  7  records  aoout  miscellaneous  programs    in   the 
system 

-Type  one  of  the  folio wim  numbers  in  "  " 

"1"   to  QUALIFY  your  need 

"?."        to  OISPLAr  all  the  records 
ao  > 
1 

-fo  ':iUALIFT'  vour  need 
Tyoe  one  or  ^^orf^        of  the  following  numbers  in  "  " 
seoaratina  oy  commas 
You  ''1U3T  tyo-^  at  least  one 
"1"      language 
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qo  > 
1  ,? 


area 


-To  further  J  U  ALlFf    ♦*   lanquaoe     ** 

l^/oe  one  or  none  of  fhe  followina  numbers  and/or  letters 


1  n 


"1"  alqol 

V  oascal 

"n"   iiJ  T  to  want  qu  ^  1  i  f  y 
oo  > 
1 


-To  further  QU A L[Fy    *■*   area         ** 

Tyoe  one  or    iiorc  of  fhe  foHowinq  numbers  and/or  letters 


1  n 


"  1  "  s  o  f  t  w  3  r  e  t  o  o  1 

"  <?  "  military 

"ti"   'U  3CELl-E"lEn.JS  other  tnan  above 

" n "   \ 0  T  r  o  want  qualify 
go  > 
1 

iJo  to  no^i  t     your  qualifications  are    the  following; 
1  -al  lol 

^    -  s  o  f  c  w  a  r  e  1"  o  o  i 

-lyoe  one  of  the  follow  im  numr  ers  in  "  " 
"1"   to  DISPLAY  recoros  which  meet  your 
q  u  a  1  i  f  i  c  a  t  ions 
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"  ^  "  to  further  '^1 U  A  L  I  F  / 

"3"  to  Of-.  Lf  TF   so-ne  of  au^  1  i  f  i  c  a  f  i  on  s 

"a"  to  '■^F.QFJ  ''JiJAL  IFIC  A  r  lOM  at  the  heo  inning 
P  R  t  5  £  H!  V  I  i\i  G  present  (Qualifications 

"h"  Hl:L°  for  other  than  above 
qo  > 
2 

Uo  to  no^f  your  qualifications  are  the  followinq; 

1  -  a  1  q  o  1         {^■=i'^    MO  more  qualification) 

2  -softwaretoolChas  'JO  -nore  Qualification) 

-TvDe  one  of  the  follow  inq  numt^ers  in  "  " 
"1"   to  DISPLAY  records  which  meet  your 

qualifications 
"2"        to  furtner  QUALIFY 

"i"   to  OtL£TF   some  of  qualifications 
"■4"   to  ^tGnJ  QUALIF  ICATTON  at  the  heqinning 

P  R 1 3  E  ^  V  I  i'''J  G  o  r  e  s  e  n  1-  qualifications 
"h"   I^FLP  for  other  than  aoove 
go  > 
1 

procession  qua  1  i  f  i  cai"  i  on  :  a1qol 
processing  qualiMcation:  softwaretool 
At  this  point  redtjced  to  *  2     *  records 
There  ^re     *  2     *  records  which  meet  quali'^ications 

-rvDe  one  o^  the  foHowina  numbef^s  in  "  " 

"I"   to  Sth.  recoros  which  meet  qualifications 
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'V   to  ^EfU'^r:  a  no  CHAi'.M^H  vour  qualifications 

qo  > 

I 

10  s    recoT'i    name  descriotion 

55  I  merge  I  meraes  80  char  lonq  records  according 

to  key 

125  !  count  in q sort  I  sorts  i^O    char  long  recoros   according 
to  key 

-T/ne  one  of     tne  folio  vjina  numbers  in  "  " 

"1"   to  see  "^MEkE  information  to  find  a  specific 

record 
"2"       to  PETiJRN 
go  > 
I 

-Give  only  one  of  the  10  numbers  which  have  been  printeri 
go  >  •  . 

1 0  *  where 

125  seeorof. Smith 

-ryoe  one  of  the  followina  numbers  in  "  " 

"1"   to  se'^  'ajHERE  information  to  find  a  specific 

r  e  c  o  r  ri 
"2"   to  REfUK'iNj 
go  >  . 


•Jd  to  no 'A,  your  qualifications  are     the  followina; 


-52- 


l-glao)         (has  MO  nnore  oualification)  ^  recorcJs 
^-softwaretool  (nas  •  i U  rrore  qualification)  2  records 

-fyoe  one  of  the  foliowini-!  numbers  in  "  " 
"I"   to  DISPLAY  records  which  meet  your 

que  1  i  f  i  c  a  t  ions 
"^"        to  further  G  U  A  L  I  F  r 

"i"   to  HELFTF   some  of  Qualifications 
"U"   to  ^^EGI\l  QIJAL  IF  ICAT  Ii]N  at  the  beqinninq 

PRhSF^■?\/I^JG  present  qualifications 
"h"   HELP  for  other  than  above 
qo  > 
3 

-  T  V  o  e 

one  or  more  of  the  qualification  numbers  which  have 
been  printed  on  the  screen  just  before^  separating  by 
commas 

OR 
"n"   i.iOT  to  want  OFLEIE 
qc  > 
2 

Up  to  now/  your  qualifications  are     the  following; 
1-alqol         (has  'jO  more  qualification)  4  records 

-Tvne  one  of  the  folio wi no  numbers  in  "  " 
"1"   to  LM3PLAY  records  which  meet  your 

qual  i  ficat  ions 
"  ^  "   t  o  f  u  r  t  h  e  r  u  U  A  L  I  F  Y 
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"M"    to  BtGP'i  (^UAL  IF  ICA  T  lO'i  at  the  beqinmnq 
P  W  E  S  E  K  V  1 1"  1 G  present-  n  lj  r-^  1  i  f  i  c  .=1 1  i  o  n  s 


go  > 


-To  QIJALlEY  voup  neeo 
Type  one  or  mo  ^e       of  the  foMo'-vinq  numbers  in  "  " 
seoarafinq  by  co-^mas 
You  I  ■'  UST  tvoe  at  least  one 
1 anquaqe 
area 


"1" 
II  p  II 


qo  > 

2 


-To  further  QUALIFY    **  area  ** 

Type  one  or  nore  o'f  the  followinq  numbers  and/of  letters 


1  n 


"l"softwaretoo1 
'  V     military 

"m"       .■-iSCELLENEOUS    other     than    above 
" n "        NOT     to    want     qualify 
qo     > 


Up    to    now/     your    qualifications    are     the     following; 
1-alqol  (has    '^iO    rore    qijalification) 

df  -  m  i  1  i  t  a  r  y 
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"  T  yr>e     one     O  ^      tne      followina     ntjnhers      in     "      " 
"I"        to    I)  I  SPLAY     recoros    whict^    meet     your 

a  u  t^  1  i  ■f  i  c  a  t  1  o  n  s 
'V"        to     njrtner     Qi.ALIFY 

"3"        to    OtLETE       sorre    of    au--?lifiCc3tions 
"a"       to    ^EHTM    QUALIFICATION    at     the    beamninq 

FRtStt-^Vli'viG    orespot     qualifications 
"h"       nLLP     for    ot^^er     than    aOo\?e 


ao    > 


-lo  further  QUALIFY     **   military      *  * 

Type  one  on  more  of  the  followina  numbers  and/or  letters 


1  n 


"  l"  navy 

V  airforce 

" n "   N OT  to  want  qualify 
go  > 

r 

Uo  to  now,  vour   :)iialifications  are  the  follcwinq; 
l-alqol         (has  riO  Tore  qualification) 
^  -  n  a  v  V 

"fyoe  one  of  '"he  followina  numbers  in  "  " 
"1"   to  OISPLaY  reccros  which  meet  your 

q  u  a  )  i  T  i  c  a  t  i  o  r  s 
" i"        to  further  QUALIFY 
"5"   to  DhLETE   seme  of  qualifications 
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"■4"        ro    "EGii^J    lOiJ.^.L  IF  [C^^  TTOr:    at     the    beammng 
P  f'"'  t  S  t  K  V  [  In  G    D  r  e  s  e  n  t     qualifications 


h 


rKLP  ^or  other  than  above 


no  > 

1 

D  r  o  c  e  s  s  i  n  a  q  li  a  1  i  f  i  c  a  t  i  o  n  :  a  1  a  o  1 

orocessincifjualificaticn:  navy 

At  this  point  reiiuceq  to  *  1  *  recorris 

There  are  *  1  *  recorjs  which  rreet  Qualifications 

-fyoe  one  of  the  following  nurpbers  in  "  " 

"1"   to  StE'  recorcs  which  meet  qualifications 
"2"   to  RF.TlJf^rv  ana  CHAfiGE  your  qualifications 
qo  > 
1 
ID  ^  record  narre  description 

1*^1)  !  navioation     I  lonq  ranqe  cruise 

-Type  one  of.  the  folio  wino  nurr.  bers  in  "  " 

"1"   to  see  '."Jht'RE  inforrration  to  find  a  specific 

record 
"a"        to  RtTlJPN 
ao  > 

^ 

Up  to  no/v,  your  ■.i  u  a  lit  i  cations  are  the  following; 
1-alqol         (has  ''in  more  qualification)  ^  records 
iP-navy  ^records 

-Tyoe  one  of  the  foHowinq  numbers  in  "  " 
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"  1  "   to  0  I  S  P  l.  A  Y  record?  which  meet  v  o  u  r 

qij  ,1  1  1  f  i  c  a  t  1  on  s 
"2"        t  c  f  u  r  ^  h  e  r  QUALIFY 

"3"   to  DEL. hit   some  of  qiuTlificarions 
"y"   to  t^tiGIfv  !;iljAL  IFICA  r  rO't  at  tne  Deqinmnq 

Hf^tSFPvIi\iG  nresent  ouf^Iifications 
"  ^"       ht.LP  for  other  than  above 
qo  > 
help 

Typ^  ono  of  the  tqllowinq  numbers  in  "  " 
"  1  "   to  t  «>  I  T  ISIS  and  return  to  U  i\'  I  X 
"  i"        to  HF(,  IN  ISIS  at  the  beainninq  aqain 
"3"   to  COfirir-'Ue  as  you  are 
"a"   to  see  T.ore  I  ^^JPOKf^'A  T  lOM  about  ISIS 
qo  > 
I 

ISIS  has  r.ieen   iooqeo  cut 
QOonhvef  come  aqain 
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I).   t:-^hOK   i-'FSSAUES 

Tne  lijr, hh. S  ^vsteTi  pav  print  EQUtiL  error  messaaes  with 
error  nij'T'hers  ^nri  a  little  information  ;juring  run  time. 
hxpla  nations  of  them  can  be  foum-i  in  reference  (r> .  EQUEL 
errors  arise  when  tne  svstem  relations  are  not  in  oroper 
form.  For  P'xamole  in  one  relation  there  may  be  a  tuple 
referenc inn  a  nonexistant  deoendent  relation.  This 
condition  mav  occur  if  t"^e  computer  aoes  down  or  if  the 
user  gives  up  in  the  mioole  of  the  add  process.  In  order  to 
fix  the  system/  the  relations  must  be  checked  by  the 
manaoer  usina  IIn^GRES  oirectlv.  (The  UNIX  commana  "H'ESTORE 
database  name"  should  be  issue'")  whenever  a  crash  occurs 
(3urinqanIlvGRE5operation.) 

There  are  other  error  rnessaoes  wnich  are  printed  by 
ISIS  itself  due  to  wronq  arouments  qiven  by  the  user.  These 
are  all  self  explenatary/  and  aive  the  user  another  chance 
to  type  a  correct  araument.  In  some  places/  if  the  user 
tyoes  the  same  wrong  ara  Ljment  three  times  the  system 
terminates. 
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1  <^  1  s  T^  a  T  n  .  c 


rrainC)        \        /*     for<s     one     of     the     two     ISIS    rroirdms     */ 

1  n  t     n  ; 

1  n  t      1  ^  j  f  ■<  ; 

printM"-IyPF'  one  of  the  folio wina  numbers  in  \"  \"\n"); 
printfC"       \"1\"  to  St-A^CH  ISIS  listinos\n\ 
\"i\"       ro    Ajr;0  new  list  inns,  HFLFfE  or  MUDIFY  existinaX 
ISIS  li5t:ino5\n       \"U"    to  QUIT  ISISXnoo  >\n"); 
n  ~     oe  t  i  (  )  ; 
i  t  (n  =-     \  )  i 

i  f  (  I  i  =     fork {)  )     -=    0)  { 
e  X  e  c  1  (  "  i  s  i  s  s  r  c  "  /  "  1  s  i  s  s  r  c  "  f  0  )  ; 
e  X  i  t  I  )  ; 
\ 

w  a  i  t  (  \  j  )  ; 
} 
^  f  in     -=     P)  { 

if((i  =  torkf))  ==  0){ 

e  X  e  c  1  (  "  i  s  i  s  a  ci  m  "  ,  "  i  s  i  s  a  H  Ti  "  ,  0  )  ; 
e  X  i  t  (  )  ; 
} 

wa  i  t  ( ^  j  )  ? 
} 

1 f ( n  ~=     i) 
e  X  i  t  (  )  ; 
} 
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S  re  .  Q 


//  Istructional  So  f  t^  r\re     Information  System  (ISIS) 

//  IiviGKiiS  aatariase  arplication 

//  This  procir  am    ooes     St  ARCH  oortion  of  ISIS 

//  J  ti(^    other  cart  of  ISIS  is  in  file  adn.c  which 

//  r*oes   i^OO,  KiCniFY  ann  DELETE  functions 

//  This  file  has  two  includes! 

//        1  .pncsrc.q       2.  con. a 

//  File  com.c  is  common  for  both  oart  of  ISIS 


//  flao -erase:  erase  stackl  or  not 
extern   criar   ferase? 
extern   int    *erasep; 


m  a  i  n  (  )   { 

introdO;   /*  prints  ISIS  introduction  */ 

nnnsrch();  /*  main-search  heqins  */ 

printf("  ISIS  has  heen   locoed  out\n"); 

printfC"   Qoodbvf  come  aaainXn"); 
fitt          exit 

> 

introd()  {   / *    prints  introduction  */ 

UP  char*isfM,*intrG; 

printfC"  ISTS  means  Instructional  Software  Information\n\ 
System^  written  at  'J  PS  \n\ 
***  when  voLJ  neei  helpr  at  some  kev  ooint  type  \"h\"  to\ 
aet  HELP  *^*\n   aood  1ucK\n"); 
crintf("\n     For  more  information  type      \"yes\"\n\ 
Otherwise  PUSH  PETURN  KEYXngo  >\n"); 

intra  =  qreaacC); 
i  f  (  i  nt  rd  ==  ' y '  )    in  f ohe (  )  ; 
ana  i  s : 

printfl"   -Tyoe  one  of  the  folio winas  in  \"  \"\n\ 
\"1\"   to  beam  ACTUAL  usaae\n\ 

\"2\"       to  becin  OET' ONS  TR  A  T  1  O^J  usaae\nao  >\n"); 
is  0  1  =  areaocC"); 
1  t  n  s  0  ]  =  =  '  1  '  )  { 
tin  inqres  isisO   //  invokes  inqres  database  named  ISISO 

1  f  (  i  s  0  1  =  =  '  2  '  )  { 
t;tt  inores  isisl   //  invokes  demonstration  database  ISISl 

} 

i  M  i  s  0  1  1  =  '  1  '  i  <  1  s  0  1  i  =  •  2  '  ) 
{  printfC  "Nn^irona  arqument;  try  aqainXn");  goto   aqais? 


} 


>  / *  eno  1 n t  rod (  )  *  / 
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rTinsrch()      {     /*     rrain-se-ircH;     rnonitof"s     search     routine     */ 


} 


cvcle:      /*  is  useH  to  beqin  ISIS  eoain  */ 

rt  =  search!);    /*  call  main  search  routine  */ 

if  (rr  ==  'f')   rt  =  cylbrc();    /*   in  file  com.q  */ 

if  (rt-  ==  'h'  II  rt  --     'c')   ooto  cycle; 

return, 

/*  end  mnsrchlJ  ^ / 


sea  re  h  C )  { 

««    char*csf*rts; 
tfs  int   t.  rec  ,     ns; 

ns  =  '");  Drintf("  search  in  oronress  ...\n"); 
tree  =  countl(trec); 

printf("\n  There  are    %a  records  about  nf^iscellaneousX 
proarans  in  the  svstem\n",  tree); 
aaan  s 1 : 
printf("-lvoe  one  of  the  followinq  numbers  in  \"  \"\n"); 
printfC"       \"1\"   to  QUALIFY  your  need\n\ 
\"?.\"        to  DISPLAY  a))  the  records"); 
it  (  r  t  s  =  =  '  d  '  )  { 
p  r  i  n  t  f  (  "  a  g  a  i  n  \  n  "  )  ; 

printfC   \"5\"   to  ExIT  ISIS  and  return  to  UNlX\n\ 
\"Q\"       to  HEOI^J  ISIS  at  the  beainninq  aqainXn"); 
> 
else   o  r 1 n  t  f ( "   \ n " ) ; 


rts  = 


•  r  t 


aoa  ins: 

pr  i  n 

tf ("qo  >\n"); 

c  s  = 

o  r  e  a  d  c  C  )  ; 

Sw  i  t  c  h  I  c  s  )  { 

case 

'  1  '  : 

rts  =  c.na  i  n  1  (  )  ; 

break; 

case 

'd'  : 

rts  =  disnlH); 

break ; 

cas-^" 

'  5'  : 

rts  =  ' e • ; 

break ; 

case 

•  a  •  : 

rts  =  •  b  ' ; 

break; 

rts=helris(); 
creak  ; 
oe  f  au 1 t  : 

if  ins     <  >)    {  Tsner I { ) ;     ns++;  qoto  aqains;  > 
else   break; 


> 


if  (rts  ==  'c '  ! :  rts  ==  ' a' ) 

return(rts); 


qoto  aqansi; 
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/*   era  of  SParc*^  routine  */ 


countlC)  i     //  returns  =  of  recor'.is  in  recordfile  relation 
UU  int   otreCf 

o  t  rec  =  0  ; 
nfi  ranae  of  r  is  reccr-dfile 

ft  a  retrie\/e     (otrec  =  count(r.rnarre)  ) 

return(otrec3; 


} 


disolH)     {     //    disolay-first:     executed     if    disolav     is 

//     reQuestec^    before    any    qualification 
Hf^  char     rrdes[SlJf     rrnan^efl'Sl/     *rtdl; 

##  int  rria; 

r  t  H  1     =     •  -1  '  ; 

printfC"  All     the     records    are     the     follow inqs;\n"); 

printf("iO    ff  reccra    narre  descriotion\n"); 

fr#  ranqe    of     r     is     reccrdfile 

Up  retriev/e     (rrici=r.rid/rrdes  =  r.r(3eS/rrname-r.rname)     { 

printt("5;(3    %s    %s    %s    %s\n",rrid/"     ["rrrna^ef"     !",rrdes); 
UU  } 

return(rtal); 
} 


//////////////////////////////////////////// /y /////////// / 

/  /       These  two  structures  a  r(='    used  as  stacks 
//   in  the  Qualification  orocess 

struct  stltaa  { 
UU  cnar   stlelrr[I3]; 

U^  cnar*stlfn/" 

U^  int    Stic? 

}  St  1  [^Sj  ; 

struct     st(?taa     { 
UU  char       st^plnfl?]; 

UU  char        *st,?ni; 

U^  int  st?c; 

}     st2  [^S|  ; 

////////////////////////////////////////////////////////// 
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orr<ainlC)  <  //  oualitication-main:  first  time 

//   Qualification  is  c.one    and  search 

//   continues  in  this  function  bv  calling 

//   ether  functions. 

s  t  rue  t   stltao   *DStW 

extern   char  feraseJ 
s?   char  mrr'n;:^'Tieri51f  *rtauaf  *  r  to ,     *rtsl2; 
o  a        int    nrr.  nufi^; 

int  nhuf[12)f  *no/    i^  il  /*  not  oreceeded  l/^/ith  4  ti     */ 

nc  =  <nhutlO]; 

rtqua  =  'f'J   //  return  function  if  finished  correctly 
■ferasp='Y'; 


//   to  use  stackl  aaain  without  exited  Drooram; 
//   initialize  emty 
p  s  t  1  =  \  s  t  1  [  (1 1  ; 
f  o  r ( 1  =  n  ;  i  <  25;  i  +  t  )  { 
for(il  =  0;  il  <  15;  il+  +  )    pstl->stlel'n[ilJ 
p  s  t  1  -  >  s  t  1  'n  =  '  '  ; 

n  s  1 1  +•  t ; 

}     / *    end  fori*/ 


—  •  I 


ti;i 


tin 


qaaain:  //  corres  it  i«ant  to  oualifv  without  erase  stl 
printfC"  \n    -fo  QUALIFY  your  need  \n     Type  one\ 
or  more  of  the  fcllouinq  numbers  in  \"  \*'\n\t\ 
separated  by  commasNn  You  ^''UST  tyne  at  least  one\n"); 
//'orint  maintable  relation  to  beoin  aualification 
nmr.  urn  =  0? 
ranae  of  rr  is  maintable 
retrieve  (mrrname-m.crname)  { 
nmnum+-  +  ; 
printf("     \"''Cd\"      /is\n"/  nmnum,  mmname); 

/*  aets  input  from  the  terminal  and  outs  in  array  */ 
rtg  =  qreadn(^nbuf((Jl);   /*  function  reads  inouts  */ 


if  (rto  ==  'e')  {  rt qua 


e 


qo t  o  endqua ;  > 


//  put  relation  name  on  stackl 
prel  s  1  (  8.nbuf  [01)  ; 
pst I  =  \st 1  (0  1  ; 
rt sl2  =  qs 1 s^ (^ntuf  [01  )  ; 
1  f ( rt  s 12  ==  • e '  )  {     rt  Tua  =  'e 
rtqua  =  OTain^r'C.snbuflO]); 


i  f  I  r  t  a  u  a  =  = 


N^".  ferase  =  = 


ao t  o  endqua /  > 
'^J')   qoto  qaqain; 


e  n  o  o  u  a  : 


r'f>turn(rt:jua); 
/ *   end  ouma  i  n 


*/ 


-bi- 


prelsl(arrc)    //  rLji"-relaticn-st^c<l:  outs  relations 
//  correspcP'iinq  to  arrav  onto  stac<l  from  maintable 
i  n  t    *  a  r  r  D  ;    { 
extern   char  f  er  ase  > 
extern   int   ^eraseo; 

P  4  int   r^lnum; 

UU  char       tnarref151; 

#  ft  int     ^  ^  r 

nt:  char     *tlwr,     *flrtjn; 

struct   stltao   »^stlp;   stlp  =  >^stl[01; 

f  I  run  =  '  I  '  ; 

t  n  a  m  e  [  1 ;"  J  =  '  \  0  '  ; 

iM^era-^e  ==  '  r;  ')   {   //  neecjs  adjust  stackl  pointer 
while(Stlp->Stlm  =  ='0'  I  !stlp->stlm  =  ='M'  I  ;stlp->Stlnn  =  ='W') 

St  1p t  +  ; 

erase  o    =     stip;  /*     to    use     in    qnnainl     */ 

terase    =     't'; 

> 

else 

erasep    =    t); 

r  e  1  n  u  rri    =    0  ; 

UU  range    of     t     is    maintaole 

w  h  i  1  e     (  *  a  r  r  p     1  =     0  )      { 
##  retrieve     (triame    =    t.crnamej     { 

relnurpft; 
f  1  w  r    =     '  n  '  ; 

if(*arrp     ==     relnuf^^)         { 
torlii=0;(stlp->stle1mlii]=tname[ii))     !=     '\0';iif+); 

s  t  1  c  -  >  s  t  1  e  1  m  [  i  i  )     =     '  \  0  '  ; 

st  1  p->st  It    =     '!.>'; 

stlp  +  t;     arrp  +  t;     f1v-,  r     =     'v';} 

att        \ 

1  f  (  f  ]  w  r     :  =     '  n  '  ) 
i  f  (  f  I  run     ==      '  1  ■  )         f ]  run     =     '?'  ; 
else     { 
if(*arrp==9H) 

printf("wronc    arau^ent     \"ti\"     is    discarded\n"); 
else 
it(*arrc    ==    9<-') 

printf("wrona    arcurrent     \"n\"     is    discar<ded\n"); 
else 

a  r  r  P  t  +  ;     f  1  r  u  n     =     '  1  '  ,* 
\     /*    enri    else    */ 
r  e  I  n  u  rr     =     0  ; 
}/*enrivvhile*/ 
return; 
}  / *     eno    pre  1 s  t  (  )     *  / 
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asls<:'(nt~Ljfh)  //     aualification-from    stackl-to    stacK;^ 

//       rjoes    ouaHfication    ty     stl     and    outs    on    st2 
//       anr}    cooies    st2    to    stl     at     end 

1  n  t         *  n  n  u  t  b  ;      { 

Struct        s  t  1  t  a  o       *  c-  s  t  a  1  J 

st-ruct        st-c::taa        *rsta2; 

extern        int        *eraspp; 

^P  int  mur^f     1/     eriCf 

int  *  n  b  u  f  b  t  »     t  w  r  ; 

fiff  char  rTioreM131f     tcrnarne[l51/     *flst?; 

#«  char  *tl3y/     *flsn,     *  rt  a\2 ,     *rtar; 

/*     initializations    ot     variables     */ 
tcrnametli]      =     '\0'; 

rtalc^    =     'f';     /*     if    asls2()     executed    correctly    */ 
p  s  t  a  1     =    K  s  t  1  I  0  1  ;  r  s  t  a  ^    =    n  s  t  2  [  0  ]  ; 

//     if    desired    coov    present     stackl     elements    to    stacks 
if(erasep     !=     0)     { 

whilelpstal     <    erasec)     { 
for(i     -     ();     i     <     1^;     i++) 

ostac'->st?elrTi[i]     =    ostal->stleln(il; 
psta^->st?m    =    ps t a  1 ->s t  1 m  ; 
pstal+  +  ;  psta<?  +  t; 

}/*enGAhi1e*/ 
erasep=Of 
}     /*    end     if     */ 


whi1e(pstal->stlelm{01     1=     '     ')        { 

f  1  s  V     =     '  n  '  ;      f  1  s  n     =      •  n  '  ; 
for(i=    (i;     i<\i;     i+  +  3     tnrreMiJ     =     ' 


;      tnrpre!    (  1  2] 


\0 


/*    aet     a     relation    name     from    stac<l     */ 
if(pstal->st1m=='[)'3 

<     f  o  r  (  1     =    0  ;     i     <     1  ^  ;     1  t  +  ) 

tmpreMi]  =  pstal->stlelm[i]; 
} 
else  { 
/  *  if  •'■'    or    'A'  mark,  copv  it  from  stackl  to  stack2*/ 
f  o  r ( i  =  0 ;  i  <  12;  i  +  f 1 

est a?->s t 2e 1 m  [  i ]  =  os t a  1 ->s t 1 e 1 m [ i )  ; 
Dsta2->st2m  -    ostal->stlm; 
o  s  t  a  ?  +  +  ; 
goto  endwhi; 
>  /*  em  else  */ 


nti 


ranae  of  e  is  tmprel 

retrieve  (eria  =  e.riti)  { 

if(erid  ==  0)        f 

else 

\ 


S  V   =   '  V 


f 1 sn  =  •  y  •  ; 
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//     if     no    rrore     suhriivisions    creviously    marked    as    D 
if(f)sn     ==     'y'     \!<     fisv     ==     'n') 
//        p(jtrelaricnon"5tack2withk'.'rT.  ark 

f  o  r  (  1    =    0  ;    1    <    1  <? ;    1ft) 

psta?->stcr*=l'^[i]     =    pst-ol->stlelm[i); 

p  s  r  a  <f  -  >  s  t  2  rr,    =    '  v^j '  ; 

D  s  t  a  £?  +  +  ; 
//     all     recor^is     in     relation    narked     'M'     u  i  ]  ]     l)e    displayed 
//     in    orr  Pi  }  n?     in    aisclav 

cote    enriwhi; 
}     /  *     end     if     -*:  / 

//        there    may    c  r    may    net     Pe    sofne     subdivisions 

else     { 

printf("\n     '  1  o     furfher     UU'\LIFV     *•     %  s**     \n",tmDne1); 
orinttl."        Tvoe     one    or     more     of     the     following    numbers"); 
printfl."     and\/or     letters     in     \"     \"\n"); 
} 

mum    -    0  ; 
^  f^  retrieve     (tcrname     =    e.crname) 

►Jc  whppp    e.rid    -     0        { 

r  n  u  m  f  f  ; 

pnntfC  \"%d\"     %s     \n",     mum,     tcrname); 

63     } 

i  f ( f ) sn    -=     '  V  '  ) 

prmtfC        \"m\"     >  1  SC  ELL  AfjEOLiS    other     than    above\n"); 

printM"  \"n\"        KOT     want     to    aualify     \n"); 

//        adjust     CO  inter     to    point     to    beoinninq 

n  t'  u  f  b  t     =     n  b  u  f  b  ; 

rtnr  =  areacln(nbufbt); 

if(rt'jr  ==  •«')  {     rtal2  =  'e';  coto  endal?;  } 

//  accoroinq  to  array  values,  out  correspondinq 
//  relations  on  stac^^ 


w  h  i  1  e  (  *  n  h  u  f  b  1  =  0  )    {    /  +  .^.  h  i  1  e  a  1   *  / 
ifl.*nt.ufb  ==  ^9)        /  /    ,17  Pans  'n';  not  want  to  qualify 
ooto  endvjhi;   //  at  the  end  asls<2  () 

//   if  array  value  other  than  'n'  or  'm' 

whne(*nhutb  1=  QM  \  i     *nbufb  1=  0)  {  /*  while  »2  */ 
//    cut  name  from  relation  on  sfackc?  with  0  mark 
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r  n  u  rr     =     0  ;         f  w  r     =     0  ; 
while(f>-r    <    2)     i  /  *    while    ^     3    */ 

f'vr+t;         rnurr     =     0  ; 
ua  retriev/e     (t-crname    =    e.crname) 

ua  w  h  ^  r  p     e . r  i  o     =     U     { 

r  n  u'^  +  +  / 
ifCrnurr     -=     *nnu^b)      { 

f  c  r ( i     =     0 ;     1     <     13;     i  +  + ) 

PS  t  ac'->s  t  (?e  I  n^  I  i  J     =     tcmameti); 
cstar^->st2m       =        '0'; 
psta^+t;     fur     =     0;     nbiifh  +  f; 
} 
nn  )     /*en(jwhere*/ 

}        / *    end    wn  i  1 e    *     3    *  / 
if(*nbufb    ==    9tt)     continue; 
else     { 

if(*nbufb     1=     0) 
printt('Varnipq-wrona     arqument     %d    or    n     is     \ 
discanec\p"<     *nhufb);     nbufb  +  +  ;     > 
}        /  *    eno    while     ■*    i     ^  / 


if(*nbu'^D    ~-    °8)     {     /*    rreans    miscellaneous     */ 
//    put     relation     na^e    on     stack?    with     'M*     mark 
f  o  r ( i     =     0 ;     i     <     13;     i  +  +  )     { 

psta?->st?elm[i]     =     trrprellij; 
} 

osta2->st<?ni    =     'W;  psta2  +  +  ; 

}        /*     end     if(*nnufb     ==    "^S)     */ 

ir(*nnufb     i=     ())  nDufb  +  +  ; 


> 


/  *    e  n  cj    while    =     1     *  / 


e  n  a  w  h  i  : 
p  s  t  a  1  t  -t  ; 

}        /*    enc    while    at     the    beainnira     */ 
cpSftJsH);  /*    cooies    stacks?    to    stack  1     */ 

e  n  en  1  r"* : 


}-  /  >'    end  asls2lrtql2);  */ 
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cos^sH)   {  /*  cocy-staci<^-ro-staci^l   */ 

//   erases  s^ackl,  en  cies  stack<f  to  stackl,  erases  stack2 

struct  stltao    *ool; 

struct  st?tao    *roc^; 


fe  "    i  n  t    j  »  j  I  ; 
p  o  i  =  f  s  t  1  I  0  )  ; 


oo^    =■    ''.  st^LOj; 


//       erase    stackl,     to    t:eain    copy    with    a    clean    stackl 
f  o  r  (  j     =    U  ;     j     <    <?  S  ;     j  +  *• )     { 

f  o  n  (  i  1     -    0  ;     j  1     <     1  a  ;     j  1  +  +  1 

pol->st  lei m  I  j  1  ]  -     '  •  ; 
pol->stlT  =  '  '; 
pol->stlc  =  0; 
D  o  1  +  +  ; 
i 
col    -    S3t  l[')l  ; 


//   cooy  stackc?  to  stack  Ir  ano  erase  stack2 
J  =  o; 

whilelj  <  2S)   {   /*  while  ^  I  */ 
i  f  (pocf->st  3rr  =  =  '  U  '  1!  oo«f ->  s  t  2'n  =  =  *  w  '  !!  po<^->st  am  =  =  '  i^  '  ) 

/  *    c  GOV    part*/ 
{        t  o  r ( j  1     =     0;      j  1     <     1  ? ;      j  1  +  +  ) 

ool->stleIrr(jlJ     =    po2->staelm[jll; 
Pol->Stlni  =     PO<?->st2fr; 

pol->stlc    =    po2->st?c; 

/*    erase    stack?    ■♦■/ 

f  o  r  (  j  1     =    0  ;     j  I     <     1  ?  ;     j  1  +  +  ) 

po2->st  ?e  1  rr-  (  j  1  I  =  '  '  ; 
po?->st?m    =  •  •; 
po?->stPc   =  u; 
} 


else    j  =  ?  S ; 
00I++;   00?++;   j+t; 
i       /*  end  while  ■?  1  */ 


return; 
}  /*  en  J  cpsPsl  */ 
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amainiElnbufno)    /*  auali^ication-spcondary 
int   *ncufco;    { 
extern   char   ferase? 
struct    stltaa   *rlc? 


*/ 


tm 


c 
1  p 
fe 
nb 
Pl 


// 
// 


a 

f  o 

w  h 

pr 

c  r  i  n 

D  r  i  n 

\"  1 

aua 

p  r  i 

to 

D  r  i 

b 

or  i 

S  w 

ca 


l<3  f+  1  {Dlc->st  Ic  = 
{ 


nar   *-q2rth,  *QrTif^rt/  *  o^ic  '> 

t     *noftTOf  i<5f 

rase  =  ' Y ' ; 

ftnnp    =    nbufoof 

c    =    Xv  s  t  1  [  0  J  ; 

c'rt     =     'c  '  ; 

rase  3  tic  before  beqinnim  to  print 

n  V  a  u  a  ]  i  f  i  c  ^  t  i  O  ri  s 

r  (  k  5  =  I) ;  k  ^  <  ?  S  ; 

i  1  e  (QfT^  rt  ==  '  c  '  ) 

qual  (  )  ; 

t  f  (  "  \  n  "  )  ; 

tf("-Type  one  of  the  folloi^inq  numbers  in 

\"  to  DISPLAY  records  which  meet  your  \ 

lificationsVn"); 

nttl"        \"?\"   to  further  QUALlFYNn 

UfcLETE   some  oualificationsNn"); 

ntf("       \"a\"   to  HEGTN  QUALIFIC/iTIOM 

eainninaXn  PRESEKVl'^iG  present  qualificaticnsXn"); 

ntf("    \"h\"  HELP  for  other  than  aboveXnqo  >\n"); 

C  =  qreaoc ( ) J 

itch  (qc^c  )  { 


0 ;  p  1  c  +  + ; } 


\"  \"\n\ 

\"5\"\ 
at  the\ 


se 


'  1  •  : 

qm2  r  t  = 
b  real*  / 


cii  so  1  2  (  )  ; 


case 


case 


case 


qsls^fnoftmp) ; 
0  r  e  a  k  ; 
•3'  : 

qm<?  r  t  = 
b  rea  < ; 

•  a  •  : 

q  m  2  r  t  = 


del etcCnbftmp) ; 


f  e  r  a  s  e  =  '  'Xj  '  ; 

b  rea  <  P 
c  3se  '  h '  : 

qm^rt  =  heloisC); 

•^  reak  ; 
default: 

msqe  r 1  ( ) ; 

b  rea  K  ; 
>   /*  en a  case  */ 
nnftmo  =  nbufooJ 
}   /  *  e  n  q  while  * / 

returnCoTi^rt); 
/*  eno  Gmain2  */ 
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prGualC)   {   /*  print-cuaHficetions 
struct    stltan    *poii; 


*/ 


tfp  char     AtlTw; 

un  i  nt        k  ,        k? ; 

p  o  i  1     =    &  s  t  1  { ( '  ]  ; 
amw    -    poil->st]rTi; 

ifCarrw     i=     'D'     <^  s    rirrw     !=     '  ^"     &.^    ctmw     i=     '  I'J  '  ) 
{ 

printtC"\ni(\arriina:     You    have    ^JO    qualiticationsXn"); 
QOto    ennt^rq; 
> 
else 
p  r  i  n  t  f { " \ n  U  P     to    now,     "  )  ; 

printf("vour    ouaMfi cations    are     the     fo11owinq;\n"); 
for(k     =     l;k<c'6;k  +  +  l         ( 
k  2    =    k  ; 

drr.  ^-     =     POll->Stlm; 
s  w  i  t  c  h  (  o  rn  w  )         ■{ 
case     ' U ' : 
print  f("%d    -:;s  ",     k,     po  i  1 ->  s  t  1  e  1  m  )  ,* 

it(poil->stlc    >    0  3 

printfC"  %cJ        MstinosXn"/     poil->stlc); 

else    p  r  i  n  t  f (  "     \ n  "  )  ; 
break? 
c  a  s  e     '  M  '  : 
printf("%(:    -%s(n^iscellaneous;     has    NO    more\ 
Qualifications)  "f     k,     poil->stle1m); 
1  f  Cpoi  1 ->st  Ic     >     0  ) 

printfC"       %d       rPcor<is\n",     DOil->stlc); 
else    D  r  i  n  t  f  (  "     \ n  "  1  ; 
break ; 
case     '  t  ■■  '  : 
p  r  i  n  r  f  (,  "  °/„d    -%s(has    MO    more    qua  H  f  i  c  a  t  i  on  s  )  "  \ 
,     k,     noil->stleln^j; 
iftpoil->stlc    >    0) 

pnntfl"  %d        listinasXn",     ooil->stlcJ; 

else    p  n  n  t  f ( "     \ n  "  )  ; 
break; 
de  f  au 1 t  : 

k    =    26; 
break; 
}        /*    end    case    */ 
P  o  1  1  +  +  ; 
I        / ^     end     for     */ 

if(kc;    >     12)     {     //     if     too    many    nual.     to     fit     screen 
pnntf("\n  to    COf.TlNIJF,     PIJSH    RETURN     keyXnqo     >\n"); 

q  r  e  a  (J  c  C  )  ; 
} 

e  n  d  r>  r  q  :        ; 
return,* 
I         /  *     end    ^jrqua     "*=/ 
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struct  stl'-ao        *nt-ri; 


char     reltnrD[13]f     *ri'Drl,      *fldmw; 
int     C  t  h  1  ,      1,      -fltab^     ctia,     ddum; 


rtflnl     =     'c';     flt-al-      = 


ptrl     =    \srl[i)]; 


//       ccoy     stack!     elernent     to     temn     relation    name 
t  o  r  (  1  =  U  ;      1      <     1  ^     ;      1  +  +  )      r  e  1  t  n  m  [  1  ]  =  •      '  ;      r  e  'U  n  m  [  1  ,^  ]  =  '  \  0  '  ; 
forCl      =     o;      1      <     1/^;      1+  +  J  reltnmin      =     ptrl->stlelm[n; 

a  cj  a  i  *^  : 

whi  le  (  (  f  1  dr:iw  =  =  'D  '  !  ;  f  1  dr^w  =  =  'M'  !  1  f  ]  dmw  =  =  V:  '  )!i^f  Uab     <=     2) 
{ 

printf("Drocessinq    Qualification:     "  )  ', 

ford     =     0;     1     <     li;      1+  +  )        pri  nt  f  (  "/:c"  ,      reltnr^[in; 

p  r  1  n  t  M  "     \  n  "  )  ,- 

fi!t  range    of     w     is     reltnrr 

Switch(fldmw)  { 
case  '  L'  '  : 

disd(.fltah,ptrl);    /  *        in  file  encsrc.q  */ 
f  1  t  a  b  +  +  ; 
b  rea  ic  ; 
case  '  r! '  :  case  '  :i  '  : 

if(ptrl->stlc  ==  0)  i 
c  t  b  1  =  {) ; 

fe#  ranqe  of  dl  is  tabledl 

tf  tt  append  tabledlCw.rid"!  where  w.rid  >  0 

^»'  retrieve  Cctbl  =  count(dl.rid)  ) 

?J*  de  1  et  e  d  1 


ptrl->stlc  =  ctbi; 


} 


an 


an 


1  f  (  f  1  tab  ==  1)  { 

append  to  tablel  (w.rid)  where  w.rici  >  0 

} 

i  f (  f 1  tab  ==  P)      { 

arpena  to  table?( w.rid)  where  w.rid  >  0 


> 

f  1  t  a  P  +  + ; 

break; 
>  /*  erri  case  * / 
P  t  r  1  +  +  ; 

//  copy  a  new  record  from  stackl 

reltnr^lo]  =  '  ';   /*  bad  spot  */ 
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for(l     =    0;     1     <     \2f     1+  +  )     reltnmtl)     =    ptrl->stle1nnn); 
flan^w    -    ctrl->st!rr; 

}     /  *    e  n  o    w  hi  i  1  e    *  /    - 

if(f1tar  ==  1)  /*  rreens  stackl  en-ty  */ 
{ 
D  r  i  r  t:  f  (  "  'A  A  P ^J  1  r- G  :  Y  o u  H  e  v e  no  a u a  M  t  i  c  a  t  i  o n  t  o \ 
di  spl ay\n"  )  ; 
aoto  endois; 
> 

i'fCfltab  ==  ?)  i     //  tab  lei  Has  recoros,  cony  to  tabled 

UU  range  of  tl  is  tablel 

tfH  append  to  t  ab  1  e3  (  t  I  .  r  i  d  J 

*  !5      de  1  e  t  e  t  1 


ifCfltab  ==  3)  {  /*  tablel  and  tabled  have  records  */ 

tf^  range  of  tl  is  tablel 

ttu  range  of  t^  is  table? 

Utf  append  to  table3(tl.rid)  where  tl.rio  =  t2.rid 

Utf  delete   tl 

#«  deletet? 

tiU  range  of  t3  is  tab1e3 


ftn 


ct3d  =  cnttb3();    /*•   in  file   encsrc.a  */ 
printf("At  this  point  reduced  to  *%d*  HstingsSn",  ct3d); 
i  f (ct 3d  ==  0) 
{ 

printfC"  There  is  no  listing/  which  rreetsN 
qual  i  ficationsNn")  ; 
de 1 ete  t  3 
goto  enod  i  s ; 
} 

else  { 

apcend    to    tableHt3.rid) 
de 1 et  e       t  3 

f 1  t  a  b  =  2 ;  aoto  a  a  a  i  9 ;  } 
>  / "    end  i  f ( f 1 t  ah  ==  3)  */ 


d  i  s  t  b  3  (  )  ; 


/* 


in  file  encsrc.q  */ 


endd i  s : 

return(rtdol); 
)       /*  ena  displ?  */ 
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////////////////////////////////////////////////////////// 

//   pnclosjre  to  src.c 

//   incluaes   cnttb3()/  iisttn^(3^  disoC) 
//   the  reason  tnis  oart  is  secarate  is  that  the 
//  eo'jel  crecomoiler  noes  net  work  well 

//  forlaraeoroqrarrs. 

oincluop  "eocsrc.c" 
////////////////////////////////////////////////////////// 


de)etq(*?fotl)   /*  delete  Qualification  */ 
i  n  t   *  b  f  D  t  1  ;   { 
struct    stttaa    *slo; 
struct    st?t3a    *s<?o; 


un 


int    *bfntc'/  i,  *slDend; 
char    *rtrlx; 


sId  =  &stl[()];     s2p  =  ^st2[0); 

oipr'i    =    hfotl;    sloend  =  slo  +  ?^; 

printf("\n    -TyoeNn      oneormoreoftheX 
aualificotion  numbers  which  have  been\nprinted\ 
on  the  screen  just  before/  separating  ty    commasNoN 

OR\n   \"n\"   r.'GT  want  to  DELETEXn"); 

rtrlx  =  areadn(bfpt2); 

bf Pt 2  =  b  f pt 1  ; 

if(rtrlx  ==  'e')  ccto  endrlx;  else  rtrlx  =  'c'/ 

//  peqin  to  erase  corresponding  stackl  elements 

//   9  9  means  n;  not"  relax 

whne(*nfptl  1=  0  UK    *bfptl  :=  99)  { 

sip  =  slo  +  *b^ptl  -  l;  /*  to  adjust  p.  */ 
//  cneck  ccinter  limit  is  not  exceeded 
if(slo  >  sloend)  { 
printf("\n  warninat  larae  relax  argurrentV 

is  discarded\n"); 
sip  =  sir  t-  1  -  *bfptl;  bfptl+  +  ;   continue;} 
for(i  =  u;  i  <  1?;  i++) 

5lP->stlelT[i)  =  '  •; 
s  1  p  -  >  s  t  1  rr  =  '  X  •  ; 

sip  =  sip  +  1  -  *hfoti;  /*  to  adjust  pointer  */ 
b  f  p  t  1  t  f  ; 
i       /*  end  while  */ 

iftpfrtl  ==  Dfpt(?  &K  bfnt?  ==  99)   ooto  endrlx; 
//  to  compress  stackl  elemets 

//  copy  stacvrl  elennents  to  stackl  (except  ones  X  marked) 
wnileCslo  <=  slpeno)  ( 
i  f  (slp->st  1m:='0  '   ;;  s  lp->st  lm  =  =' W   J!  s  1  P -> S t  1  m  =  =  '  W  '  ) 
{  f  o  r  (  1  =  I) ;  i  <  12;  i  +  *• ) 

s?p->st?elfr[il  =  slp->?tlelm[il; 
Sdp->st2m  =  '^lp->stlm; 
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se?t^->s''2c  =  sln->st-lc; 
s^ci-  +  ; 
}  /*  enc  if  */ 
s  1  p  +  +  ; 
)•  /  *  e  n  H  while  *  / 
//  secona;  copv  stack^  to  stoc<l 
c  D  s  £^  s  1  (  )  ; 
ena  r I x : 

return(rtrl>)r 

}    /*  en'-*  ae  1  et  q  (  b  f  Dt  1  )   *  / 


I 


////////////////////////////////////////////////////////// 
//   cc^.c  is  coTimon  to    search/  and  Add- Delete- Modify? 
//   includes  cylbrc/  helois,  qreadC/  greadn,  msgerl 
fe  i  n  c  1  u  o  e  "  c  o  m  .  c  " 
////////////////////////////////////////////////////////// 


4 

I 
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enc  s  re  .  o 


//   This   file  IS  an  enclosure  to  src.a 
//   src.q  contains  search  r)art  of  TSIS 


cnttti^C)  {   /*  count-tabled:   */ 

//   called  troT)  file  src.a  function  displ^C) 
#  5   i  n  t  a  b  X  ; 

Uu       ranoe  of  t3  is  table3 
un       reti^ieve  (abx  =  c  oun  t  (  t  5  .  r  i  d  )  )     { 

returnCaox ) ; 

>  /*  end  cnt  tb5( )  */ 


di  stb3 
//   c 

ttu         c 

c  t 

r 

r 

1  f 

D  r  i 

me 

e 


print 

print 

print 

qua 

aua 


{) 
a]  1 
ha  r 
nt 
3  = 
ang 
e  t  r 
(ct 
nt  f 
et  s 
1  se 
or 

f  C" 
t  (■' 
f  (  " 
1  1  f 
1  i  f 
w  h  i 


) 


{         /* 
eo  f  r 

h  roe 
h  r  i  d  f 

o;  s 
e  of 
i  e ve 

("The 
dual 

i  nt  f  ( 

qua  1 

\n")  ; 

- 1  ype 

\"  1\ 

i  ca  t  i 

i  ca  t  i 

1  e  (  so 

sore 

1  f  (s 

p  r  i  n 


d 1 sp 1 av-t  ab 1 e3 :     */ 
om     file     src.d     function    disp12() 
s[Sn^     hrnafne[13]r     *sorCf     *rei«he; 

ct  3; 
ore     =     •  a  '  ; 
t  3     is     t  a  b 1 e  3 
(ct5    =    count(t3.rid)     ) 
0)     { 

re  is  no  listina  which\ 
ificationsXn");  ooto  endt3;    } 

"There  ^re     *%i*  listinas  wnich  rreet\ 
i  f  i  c  a  t  i  o  n  s  \  n  "  r  c  t  3  )  ; 

one  of  the  following  numbers  in  \"  \"\n"); 
"  to  SEE  listings  which  meetN 
ons\n\   "^\"  to  HRTUPN  and  ChAMGE  yourX 
onsXnao  >\n"); 


I  -  •  1  ' 


re 


=  areanc()» 


1  '  .\<  sore  i=  '^'  )  { 


ore 


I  -  '  1  • 


1  '  X,*^  sore 


I  -  lot 


2'  ) 


tf("WPONr-  arqument:  type  1  or    2    only\n"3; 


deseriotion\n"); 


ifCsorc  ==  '2')  Goto  enit3; 
printf("iD  c    record  name 
mi  range  of  r  is  recordfile 

un  retrieve(hrid=r.ridrhr  ■  i  ps  =  r.  rdeSf  \^rv\dr:^e~r  ,  rname) 

nn  .^here  r.rid  =  t3.rid  { 


printfC"  %d  %s  %s  %s  %s\n " , h r i d , " I " , h r name f " 1 " / h rdes ) ; 
nn         ) 

prwhr:   /*  orint  where  info.  */ 
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// 


tin 


D  r  i  n  t  f  (  "  \  n  "  )  ; 

nrintf("-Tvpe    one    of     the     followino    numbers     in     \"     \"\n"); 
printtC"  \"1\"        tc     see    whtPE     inforrration     to     find\ 

a    SDecific     recor.T\n  \"?\"        to    RtTURf.'Xnao    >\n"); 

rewhe    =    oreaccC)? 
i'*^Cre«h'=    ==     '?')        ci^tc       endt3; 
if(rewne     1=     '1'     \\     rewhe     1=     ' 2' )      < 

printf("wronq    arcurrent;     riiscanded    and    RETURNEDXn"); 
goto     enritS; 
}  " 

if     rewhe    --     '1'     to    see     record    where 
printfC"  -Give    only    one    of     the     iO    numoers    which    have\ 

Pe<^n     printedXnoo     >\n")7 
hril     =    TetnmC); 
range    of     wr     is     whr 

retrieveChfcjes    =    wr.raes)     where    wr.rio    =    hrid     { 
p  r  i  n  t  f  C  "      I  D     ft  w  h  e  r  e  \  n  "  )  ; 

p  r  i  n  t  f ( "       %  d  %  s \ n  "  /     hrid,     h  r  a  e  s  )  ; 

} 
qoto    prwhr; 
enat  3: 


jtto  f-ieletet3 

}     /*    end    filistoiC)     */ 


pe  t  nm  C ) 

Ua  1  n  1- 

Qtpq  : 

p2  =  O; 


i        /*  oet-nciirher: 
pn ,  p  1  /  p2 ; 


*/ 


w  h  i 


1  f 


e  1  s 
p  r  1 

•a  h  1 


> 


e  (  (  pn 

(rn  : 

pn  = 

i  f  (p 

Pl 

c^ 
} 

e  { 

n  t  f  (  " 
1  °  (  (  p 

CTC  I  O 

} 


=  oetchar (  )  )  !=  '  \n  '  ) 
-     '      '  )      { 

on  -  ' 0 • ; 
n  >=  0  6.K     pn  <=  Q)   { 

=  on  ; 

=  o?    *    10  +  p I  ; 


wrong  arnurrent;  try  againXnao  >\n"); 
n  -  getcharC))  I-     ' \n ' )     / /    erase  input  buffer 
q  t  h  a  ; 


}  /*  end  while  */ 
returnCoc:)  ; 
}  /*  eno  aetnm();  */ 
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d  i  scU  M  t  b  /  pr  ?  1  ) 


/*  cisolav-d  transaction  */ 


//   called  frc^'  file  src 
i  n  t    f  1  t  h  ,  *  p  r  s  I  ;    { 


a  function  displc?() 


ftc   c'^ar  rtnm(131; 

2z=        int        ktif     clooPf     cto2; 

//       cooy     Stack!     element     to     terrc     relation    name 
for(kb=0;      k6     <     {^;      <bf+)      rtnm[kbl='      ';      rtnm[121='\0'; 
for(kb     =     IJ;      kb     <     \  2  7      ko  +  +  )      rtnm[kbl      =     prsl->stlelmlkb]; 

a U       ranoe  o^  r\     is  rtnm 

p»       aooen'i  to  tab1edl(rl,rid)    where  rl.rid  >  0 

UP       append  to  table  d^(rl.crnan'e)  where  rl.rid  =  0 

ttu       ranae  of  ^12  is  tabled^ 

U 3       ranae  of  dl  is  tabledl 


aqa  i  ^ 

UU       re 

i  f  ( 

c 

w 

un 


trieve  (ctd<?  =  coun  t  (  d2  .  c  rname  ) 

eta?  >  0 )  { 

1  o  o  o  =  0  ; 

hileCclooo  <  cto?)  { 

retrieve  (rtnm  =  d?.crname)  { 


Uti  ) 

tta  ranee  of  si  is  rtnm 

ti t^  anoend  to  tabledl  (si. rid)   where  si. rid  >  0 

^^       aooenj  to  table d?(si.crname)  where  si. rid  =  0 
ij^       aelete  d?  where  d2.crname  =  rtnm 
c  1  o  o  D  t  +  ; 
)■  /*  end  while  */ 
}  / *  end  if*/ 


u n       ae  1  e  t  e  d^? 

i  f ( f 1 tb  --     1  )  { 
Tin  aopend  to  tablelCdl.rid) 

} 

else  { 
un  acoeno  to  table5(ol.rid) 

) 
ifCrr<5l->stlc     ==     0  1      { 
tf^  re  t  r  1  p  ve  (  c  t  ci2    =    c  oun  t  (  d  1  .  r  i  d  )     ) 

prsl->stlc  =  ctn2; 


»ti 


delete  d 1 


\         /  *  end  d  i  S  -<  (  )  ;  *  / 
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C  o  n-,  .  a 


////////////////////////////////////////////////////////// 

//  .c.o^»(^'    certains  cofTTion  funct'ions  for 

//  1  .  SEARCH  proqrarr 

//  ?.  AOD-DELETE-N'ODIFY  proaram 

////////////////////////////////////////////////////////// 


cv1r)rc()  {     //  cvcle-branch  evaluat-es  result  of  first  usage 

//  ana  sets  return  value  to  exit  or  begin  ISIS 
#c    char  *cc/' 
»^  i  n  t    nc  ; 

n  c  =  0  ; 
aga  i  n 1  : 
p  r  i  n  t  f  (  "  \  n  "  )  ; 

prinrf("-Tvpe  one  of  the  followina  numbers  in  \"  \"\n"); 
printfl"   \"1\"   to  EXIT  ISIS  and  return  to  UfMlX\n\ 
\"^\"       to  L^Enii\  ISIS  aoainXnoo  >\n"); 
cc  =  orea.icC); 
s  w  i  t  c  n  (  c  c  )  { 
case  '  1  '  : 

c  c  =  •  e  '  ; 
break; 
c  asp  • 2 '  : 

c  c  =  '  b  •  ; 
b  rea  < ; 
case  '  h '  : 

printfC"    'f-ovi ,     vou  have  onlv  two  choices  \n"); 
goto  aaainl; 
ae  f  au 1 t : 

if  (  nc  <  ^  )      {  nc++?  msgerlC);  goto  againl;  > 
else   {   cc  =  'e';  break;   } 


} 


returnlcc); 

/*       ero    of     cvlbrc     roLjtine        */ 
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helpis()  <  //  helo-lSIS:  orinfs  information 
tfr.  cn-jr  *ch; 

»i?     i  n  t   nh  ; 

c  h  =  •  c  '  ;   n  h  =  0  ; 
aga  i  n5  : 

pri  nf:  f  I  "  \n   "  )  ; 

printf("Tyre  one  of  the  foHowina  numbers  in  \"  \"\n"); 
pnntfC   \"1\"   to  EXIT  ISIS  and  return  to  UNlX\n\ 
\"2\"        to  HEGirj  ISTS  at  the  beq  inning  ag.-)in\n\ 
\"3\"   to  C(i^.TI^lllt  as  you  are\n"); 
if  (ch  :=     '  r  •  3 

print  f  I"  \"'-i\"     to  see  more  T  NFQRMA  T  lOM  '  about  iSIS\n"); 
print  fC'ao  >\n"); 
c  h  =  a  r  e  a  <  i  c  (  )  /' 


switchCch) 
case  '!•: 


{ 


en  =  • e ' ; 
case  '  (£  •  : 

c  h  =  '  b  •  ; 

break; 
case  ' 3 ' : 

c  h  =  '  c  •  ; 

break ; 
case  ' a ' : 

i  n  f  o  h  e  (  )  ; 

C  h  -     •  r  '  ; 
def aul t  : 

i  f  (nh 


aoto  aoainS; 


3) 


{  nh++;  Qoto  aoainS;  > 


else  {  c  h  = 


break;  > 


} 


return(ch) ; 
/  *  end 


f  h  e  1  P  i  s  (  )  *  / 


info 
p  r  i  n 
or  i  n 
p  r  i  n 
soft 
p  r  i  n 
U 
1  t  w 
p  r  i  n 
a  1  i 
easy 

Y 

Ju 

p  r  i  n 

sub 

man 

} 


ne(  ) 
t  f  (" 
t  f  (  "  d 
t  f  (  "  1 
ware 
t  f  (" 
se  r  c 
i  t  h  t 
t-  f  (  " 

St  i  n o 
to  US 
ou  no 
St  \nt 
t  f  C" 
1  anau 
aoeme 
re  t  u  r 


This 
1  C  t  ion 
.  SEAR 
by  con 

^.  A 
an  art  V 
he  sy  s 

P  rov 
are     i 
e.\ 

not  n 
y  pe  an 

The 
ace  QU 
n  t  s  V  s 
n  ; 


program  is  an  online  software  "); 
ary\n   There  are     two  major  programs:\n")/ 
CH  proqram;\n    LJser  can  find  existing\ 
vers i no  with  the  computer. \n"); 
ODr  DELETE,  i^^OOIFY  proqram;\n\ 
ertise  his  own  software  by  listingX 
te'^.Nn")  ; 

isions  for  modifyina  and  deletinqX 
ncludf=»d.\n");  printfC"    \nBoth  proarams  are 

eeo  previous  experience.X 

swers  after  \"ao  >\"  marks.Xn"); 

proarams  are  writtenin  the  data\ 

EL/  supported  by  the  IMGPES  \ndata  base\ 

tern  ano  th^  proarammino  lanauaae  C.\n\n"); 
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areaiicC)     \     //     reaos    rnax     10    charSf     returns     first     onlv 
»»  char     c^~uf(l()]f     *CCf     *ctenio; 

CD    =    scf'u  f  to  I  ; 
while(     Ccten^n    =    o'^rcharf)     )     1=     '\n')  { 

if     {cterrc     [=''){     *co    =    c  t  e  rro ',     c  p  t  ■•- ;     } 
\ 

n  e  t  LI  r  n  (  c  h  1 J  f  i  0  ]  )  ; 
} 


qreadnCnar)  //  reads  wax     \2    numbers  an  id /or  letters 
//  separated  by  commas;  puts  into  array. 
//  max  number  value  is  '-^  7 
i  n  t  *  n  a  r  ;  { 
au       c^ar        *crd;   /*  return  from  aread()  */ 

tfu       int  ntemolf  ntempc",  fltime^  nel/  cnt^  nzero/  naqain/ 
int   ■•^nartrnp; 
n  a  a  a  i  n  =  0  ; 
nartmo  -     nar } 
aaa  i  n  r : 

nar  =  nartmp;  //  to  adjust  oointer  at  endloop 

f  1  t  i  me  =  1  ; 

n  e  1  =  0  ; 

crd  =  'q';   /*  if  no  error  return  'g'  for  ao  * / 

/*  put  zeros  is  array  */ 
for  (nzpro  =  0;  nzero  <  \ 2  J     nzero  +  +) 
{  *nartrnD  =  0?  nartrnpft;  } 
nartmp  =  nartmp  -  !<?;   /*  adjust  nartmp  to  point  */ 
/*  to  Deainnina  of  the  ar  ray    to  use  again   */ 


p  r  i  n  t  f  C  "  Q  o  >  \  n  "  )  ; 

whileC  (ntecnol  =  '.^etcharC))  i=  '\n'  )  { 
i  t (ntemol  1=  '   '  )  { 
//  if  i  nput  is  "n" : 

//  put  it  in  array»  erase  input  buffer^  return 
i  f (nt  emr  1  ==  ' n  '  1  { 
*  n  a  r  =  99; 
whileCCntempl  =  cetc^ar())  1=  '\n')  ;  /*  null  stm 
ntemol  =  '   ' ; 
aoto  endloop? 
}  /  *  e  n  o  if  *  / 


*/ 


//  if  input  "m";put-  in  arrav,  continue  other  arguments 
ifCntenpl  ==  V,')  { 
*  n  ,3  r  =  Q  8  ; 
n  a  r  +  +  ; 
while((rtpmpl  =  netcharC))  ==  '   ')  ;/*null  Stm,*/ 
itCntemol  ==  'fM^ntemol  =  '   ';  continue?) 
ifCntemol  ==  '\n')  goto  enoloop? 
else  { 

rrintf("wrona  argument  after  \"m\"\n"); 
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aoto    pnnloot:'; 
} 


} 


/*     input     snoulrj    t  e    nurrher,     so    qo    ahea-:!     */ 
ntemol     =    nten^pl     -     'U'J 

switchCtltire)  < 
case  1 : 

c  n  t  =  o; 

if(nten-.ol  >=  0     .<->,  ntempl  <=  9) 

{ntemo2  =  ntefT^pl;  fitime  =  2}     continue;} 
else  { 
crintf("Aronc  araurent;  expecting  number\n"); 
crd  =  'e';  octo  enolooo; 
> 
case  2 : 

c  n  t  t  +  ; 

if(cnt     >     1     ^i    nferrnl      1=     (','     -     '0')     )     { 

crd    =     ' e  '  ; 
print f("wronc     araument;     very     larqeNn"); 
oo to    eno 1  OOP ; 
} 
vifCntPfTol     >  =  U     8.:<     nterrpl     <=     9) 

{     ntemp^    =    nterrpl     *     10     +    ntempl;     continue;     } 
else       if  (nterrpl     ==        (','-'  0  ')     ) 
{     fitime    =     I;     break;     > 
else     { 

orintf("wrona  arqument;"); 

printtC"  expectina  number  or  \",\"\n"); 
era  =  'e';  coto  end  loop; 
} 
i        /  *       ena  switch   */ 
ifCntemp^  >=  1  K^    ntemp?  <=  Q7)  { 

*nar  =  niemc2  'r     ntempt^  =  0;  nar-t  +  ; 
> 
else  { 

orintf("wrono  araument;  very  larae  or  less  than  l\n"); 
era  =  'e';  ooto  end  loop; 

} 
n  e  1  +  +  ; 

i  f (nel  >  1  1  )  < 

printft"more  than  11  arqumontsNn");  crd  =  'e'; 
qoto  end  loop; 
> 
}   /*   end  ifCntempl  1=  '  ')  */ 
}   /*  end  while  */ 

if(,ntempd>=1  i!<ntemp2<=Q7l  { 
■*-nar     =  ntemc?;  ntemp2  =  0; 
> 

else  { 
printf("wrona  aroument;  very  large  or  less  than  l\n\ 
or  endina  with  \",\"  without  arqumentXn"); 
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I 


> 

end  I  OOP : 

ifCnaaain     <     s    \:<    crd    ==     'e')        { 
rrinftC"     \p       -Tyre    00:^    or    n^ore    of     the     fo11owinq\ 
numbers     in    \"     \"\n  separated    by    commasXn 

rryonemoretirpeXn"); 

itCntemrl     1=     '\n')  /*     to    erase    ouffer     */ 

while((ntennr>l     =    oet-cnar())     1=     '\n')  ; 

goto     an a i or; 
} 
r  e  t  u  r  n  (  c  r  cl )  / 
}  /*       en a    oreadnCnar)        */ 


msge  r 1 ( )  { 

printtC"   You  fT'ust  t-yoe  one  o^  the  characters  in 
\"  \"  which  have  been  orinted  on  the\n  terminalX 
or  tyoe  \"h\"  to  oet  heln  inforrration\n"); 

> 
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a  :1m  .  q 


//  FhFsis  aocut  1 ' ' Gi'hS  data  base  ac plication  ISIS 
//  This  proararr  is  A  OD-l'FLE.  1 1 -MOO  I F  y  part  of  ISIS 
//        Inis     file    Has     two    enclosures:        1.     encadm.c  2.     coti.c 


extern        ctiar    a'=nrell131/ 

extern        int         idnun^J 

extern       cf^or     flnarre[]i]/fl(ieslSll,fldTi^f1whr[511/passw; 


m  a  i  n  (  )   {  /  *  a  a  ci  -  o  e  1  e  t  e  -  n  o  o  i  f  V  *  / 

c  I"'  a  r   1  s  C)  o  r  1  ; 

i  n  f  o  h  e  (  )  / 

pr  i  n  t  f  (.  "  \n\n   This  part  of  proaram  does  ADD/  MODIFYX 
ana  P-ELEIt  functionsXn"); 
a  Q  a  0  1  : 

prirtf("   -Tvpe  one  of  the  following  in  \"  \"\n\ 

\"1\"   to  neain  ACTUAL.  usaae\n\ 

W\"   to  heain  nF>  ni>;S  TR  A  T  I  ON  usaqeXnoo  >\n"); 

1  s  i'  o  r  I  =  a  r  e  a  d  c  (  1  ; 

1  f (  i  sOor  I  ==  •  1  •  )  { 
tfa  inar(^s  isisU   //  invokes  inqres  database  named  ISISO 

} 

1  *  (  i  s  1 1  o  r  1  -  -  V  1  { 
d»    inqres  isisl   //  iPvo'<e<=;  d-^monstration  database  ISISI 
} 

if(isOcrl  !=  '!•  \i,     isOorl  1=  V) 
{  prinrtf"\ni/rona  araum^nt/  trv  aqainXn");   qoto  aqaOl; 


} 


P  r  a  n  c  h  (  )  ; 

printf("ISiS  a^d-oe^e^e""modify  ppoqrann  has  been  loqqedN 

o  u  t  \  n  b  o  o  d  b  V  f  cone  a  (3  a  i  n  \  n  "  )  ; 

exit 
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branch!.]  {  /*  branches  to  one  ot  the  m.ain  routines  */ 


extern 
tin  char   *c» 

Un  i  n  t     n ; 


C  r  a  r      t  1  d  ^ 

*  r  r  ?  ; 


n  ~ 
C  V  I  t )  r 
o  r  i 
p  r  i 
p  r  1 
P  ro 
\"3 
a  n  a  i  n 
pr  i 
c  = 
3  w  i 
c  as 


u  / 

n  t  f  (  "  \  n 
n  t  +  I  "     of 
nt  f  (  " 

ciram\n\"?\ 
\"        to    L 


-Tvoe  one"); 

the  folic wina  nunbers  in  \"  \"\n"); 

foranew\ 


\"1\"   to  '^OP 


a  new  listina 


to 


''■flOTFY  an  existing  listinqXnS 


jFLETE  all  inforn^ation  about-  one  orogramXn"); 


ntM"ao  >\n"); 

a  r  e  a  o  c  (  )  ; 
tch  (c  )   { 
e  •  1  •  : 

r^  ?    -    a.-'.oi)  'i 

break; 

case  '2'  : 

f  1  nrr  r  •  ^;  '  ; 

r  t  <?  =  ^  e  1  rr  o  '.T  (  )  ; 
b  r  e  a  <  ; 
case  ' 3 ' ; 

1 1  c-i  =  'n  ' ; 

rtl    -    rielo-.oot); 
break  ; 


case 


de  f 


}  /* 

1  f  ( 

1  f  C 

ret 

}  /  *  i^n 


rt2  =  nelnisC); 

b  rea  <  ; 
aul  t  : 

it(n  <  3)  {  rrsaerlC);  n  +  +  ;  qoto  aoain;  > 
elseoreak; 
end  Switch  */ 
rt?  ==  't')   rtc  =  cyH^rcC);  /*  f  means  finish  */ 
rt^  ==  'b'   ;;  rt2  ==  'c')  ooto  cvlbr; 
urn; 
o    branchC);  */ 


a  d  d  (  )  { 

tt  ^     char  *rta; 

r  t  a  -  '  t  •  ; 

P  r  i  n  t  f  (  " 

a  e  t  o  a  r  (  ) 

a  c  r  f  w  h  (.  )  ; 

r  t  a  =  a  ("<  ^1  r  1  s  (  )  ; 

i  M  rta  ==  'e  '  ) 

e  n  d  a  a  d  ; 


ADO  in  proaress  ...\n"); 
/^   oet-naramete'"s  ■*/ 
/*   arpend- r ec o rd f i 1 e  and  where  rel 
/*  ano-to-rela^ions  */ 
acto  endado; 


*/ 


return(,rta)  ; 
/*  anc  adn(J  */ 
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qptoar()     {     /*    oet-ranarretefs     for    addina     */ 
extern     int      ion  un^; 

extern    ch;^r     flnerreil^W      MfiesfSll^     f|u,hr[5l]/     oassw; 
Uii  int        tnax/     i; 

P  f}  Chc^r     *Ch<-fr.  o,      *flwt; 

//        initialisation     of     vari.^t-les 
innu^     =     '^/      trax     =     o; 
flwt     =     'o';     flnarrell^l     =     '\0';     fldeslSOl     =     '\0'; 

HU  ranne    of     r     is     r^ccrotile 

nu  retrieve        (tTav     =    r^ax(r.ria)) 

i  f  1  n  I.J  m    =     t  T  =)  X     +     1  ; 

printf("        Very     important      1        KeeD     in    min'1\n\ 
Vour     new     recorci     ID     number     is        *     °'.  d     -<\n",     idnun^)? 

//       erase     finale    a no    floes     to    heqin    clean 

f  o  r  (  i     =    0  ;     i     <     [^;     i  +  +  )        f  i  n  a  t.  e  [  i  1     =     '     '  ; 
fori!     =    u;     i     <    so;     iv+J        fldestn     -     '     '; 


//       accent     input     frc^     tertiirtal 

o  n  n  t  f  (  "        -  U  1  V  e    new     H  P  0  b  i^  ^  M  '  S    M  A  ■  ^  £  "  )  ; 
printtC"     (i\!C'T     -r^ore     than     Ic?    c^iaracters)\n"); 
printf("oo    not     insert     hlanks    oetween    charactersXn"); 
D  r  i  n  t  f  (  "  c  o    >  \  n  "  3  ; 
1     =    U  ; 
whilef      (cHtmp     =    oetct^arC)     )      :=     '  \n'  )         { 


i  f ( f 1 w  t     =  =     'a 
i  f ( c  h  t  mp     !  = 


'  )      {       flname(il      -     Chtrnp;      1+  +  ;} 


^     i     >    1^)       { 
orintf("!ona     aroument?     truncatedXn"); 
t 1 wt     =     •  s  '  ; 


} 


>/*enO'«hil<=*/ 
t  1  n  a  rr  e  (  1  ?  I  =  '  \  i)  '  ; 
f  1  w  t     -     '  o  '  ; 

print  f("   -Give  new  ^^P  OG*?  A-i  '  S  OESCRIPTIOM  (r\IOT\ 
more  thf^n  5  0  characters*  in  one  line)\nao  >\n"); 

i  =  o; 

while(  (chtTP  =  netcharC)  )     1=     '\n')    { 
1  f  (  f  1  w  t  =  =  '  a  '  )   f  1  _:!  e  s  f  i  )  =  c  h  t  m  o  ; 

i  ++ ; 

i  f  (  f  1  '...  t  =  =  '  a  '  N  \  i  >  S  n  1  { 

printf("1onQ     arnu^ent;      tr u nc a tedXn")? 


f  Ut     = 


} 


>/*en.i    while*/ 
f  1  oes  [bO]     =     '  \()  '  ; 
//        aet     where     rHes     input      fron     terminal 
prir-itfC"        -Tell     i^ihtKE     this     oroararo    can     be     found\n\ 
ii'iOl     rr.ocp     than     SO     c  h  a  r  ,3  c  t  e  r  s  \  n  a  o     >  \  n  "  )  J 
f  1  w  r     -     '  q  '  ; 
1=0; 
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while{(chtmc    =    netrharC))     1=     '\p')     { 
it(tlwt     ==     ' a' )         flwhrli]      =     chtmp; 

i  +  + ; 

1  f  (  f  1  ^,  t     =  =     '  a  '     .<  \     i     >     SO)      { 

printt("1onq  arqument;  •:  rune  a  t  ed\  n  "  )  J  flwt 

I 
I 

}     /*  pnn  while  */ 

print+("   -Give  one  character    \n"); 

orinrf("to  be  new  I  i  St  i  no's  P  A  SS/JORO  \n  "  )  ; 

D  r  i  n  t  f  (.  "  a  o  >  \  n  "  )  ; 

passw  =  area'ic(); 

}     /  *     e  n  f  1  o  e  t  p  a  r  (  )  *  / 


aprfwnl)  ■(  /*  append-recornfile  anpend-whr  rel.  */ 

extern   int   idnu"^? 

extern       char     tlname(l31^     fldes[Sll,     flwhr[':5l]f     passw; 
PU  int     cmexf     k; 

nt:  char     fnan-e(l3],     fcesCSl),     fwhrlSl],     pss(£i; 

CT^ax     =     idnunn;       psst"^]     =    oassw;       psstll     =     '\0'; 

for(k  =    C;     k     <     \P;     K+-  +  )        fname[kl     =     flname[k]; 

for(k  =    u;     k    <    50;     k++)     { 

tdesLkl     =     fidesikl;        fwhr[kl     =     flwhr[ki; 
} 

Uti    appeno  reco  rd  f  i  1  e  C  r  i  d  =  cnax  ^  manned  f  name  ^  rdes  =  fdes  f 
t!  u  pswrd    =    pss") 

itn     append  whr(rin    =    c^ax/     rdes    =     fwhr) 

\     /*     end    aprfwh     */ 


////////////////////////////////////////////////////////// 

struct  stnt aa     i 

Up  Char        strelfr[r5]; 

}   St r  tasi ; 
////////////////////////////////////////////////////////// 
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andrlsC"*        i     /*    adri- 1  o- re  1  a  t  i  on  s  :        */ 
s  *■  r  ij  c  t        s  t  r  t  a  o        *  p  s  t  r  7 
extern       c^an       of^nrel   1131; 


nn 


3],      *rtacirl,      *flfin,     *  r  tqr  p 

f  1  f  i  n 


*  r t  cu  r ; 


mn  ame 


J  /    J  I ,    *  t  o ; 
[  1  ? )    =    '  \  0  '  ; 


—    • 


// 
// 


i  n  r        m  n  u  n^  » 
cnar    nna^etl 
i  n  t        o  u 
pstr     =     J-.  srr[U] 
rtadrl     =     'f'; 
to    use     stackr    aaain    without     exitina    prooram, 
''"""■'i-?e    efinpty 

<     25;      j'tt)      ^ 

<     li;     jl++)        ostr->strelmtjl]     = 


i  n  1  t  i  a 
t  o  r  (  j  =  0  ;  j 

for  I j 1  =  o; 

n  s  t  r  +  +  ; 
}  /  *  end  1  . f or  */ 


i  1 


//   beain  display  nnaintable  and  aet  inout 

printf("  -To  ADD  your  new  listing  in  the  appropriateX 

cateoories^Sn"); 
printf*""   Tvoe  one  or  more  of  the  follow  inqX 
numbers  in  \"  \"\n     seoaratinq  by  commas\n\ 
You  N'UbT  tvop  at  least  one\n"); 
nrintf("     Select  all  that  oertainsJX 
you  will  aet  no  second  chanceNn"); 
//   a3  aisolay  maintable 
UU  ranqeofmismaintaole 

m  p  u  m  =  0  ; 
u ^  retrieve  (rnname  -    m.crname)  { 

mnum  +  +  ; 

p  r  i  n  t  f ( "   \ " %  d \ "    %  s \ n  "  ,  m  n  u  m ,  rnname); 

nn        } 


//   b)  qet  input  from  terminal  and  put  to  array 
rtar  =  areadn(^buf[OJ); 


if(rtqr  ==  'e') 

10]   =  'm' 


{  r  t  ad  r 


aeri  r  e 


a  e  n  r  e  1  I  '^^ 


e 
—  « 


;  aot  o  endad  r ; 
aenrel  (11  =  'a';  qenrel  [t^l  = 
aenrel[al  =  't';  aenreMS]  = 
aenreMbI  =  'b';  aenrel  f71  =  '1';  aenrel  [8)  = 

genrel  [  1 01  =  •  '  ;  qenrel  (  1  1 1 


Dutstr(^3tr[Ulf^but[01);   /*  Put  relations  to  stackr  */ 

/////////////////////////////////////////////////////// 

wnileCflfin  ==  'n')    {   /*  means  not  finish  */ 
//   dumwrtl)  /*  dummy- write  */ 
//   fina  last  element  on  st-acK  to  qet/  if  emty  finish 

pstr  =  i.  s  t  r  f  0  1  ; 

if(nstr->stre1m[i)l  ==  '   ') 

{  flrin  =  'y';   Goto  endwhi;  }  /♦  stack  is  emty  */ 

J    =    o; 

whne(pstr->strplm[01      1=     '      ')      { 
J++;        pstr++; 
1 f ( j     >    2S)     { 

pr i nt f ( "ERRQPtaddi na    stack    overflow"); 
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or  inrff",  rra^  <?5  itens.Xn")? 
o  o  t  o  e  n  d  i/v  h  i  ; 
} 
}     /♦  end  while  */ 
ps  K  r     -    t "•  S  t  r  -  I  ; 

//   cony  the  last  stack  element  to  genrel  [151 

for(j  =  0;  j  <  I?;  j+  +  )   aenreMjl  =  Dstr->strelm[j]; 
//   call  pcurclO   to  do  branch 

r  t  c  'J  r  =  p  C  u  r  c  1(  J  P 
//   hranch   accoroino  to  return  of  pcurcM) 
switchCrtcur)   { 
case  '  1  '  : 

addcurC);   /*  add  to  current  class  name  */ 
for(j  =  n;  j  <  12;  jt+)  DStr->strelm[j]  =  '  '; 
break ; 
case  V  '  : 

newOrcC);    /*  new -branch:  */ 
//   erase  one  elerrent  from  stack 

for(i  =  O;  j  <  \2;     j^-+)  pstr->strelm[jl  =  '  '; 
b  r ea  < ; 
case  ' i' : 

exihrc(?%buf[0],ostr);   /*  ex  isti  no-branch:  */ 
break  ? 
case  ' n ' : 
//        erase   one  element  from  stack 

forCj  =  o;  j  <  la;  j++)  cstr->strelm(j]  =  '  •; 
goto  enow  Hi; 
}  /*  end  switch  */ 
ena w n  i  : 

1  f  (  f  1  f  i  n  =  =  '  V  '  ) 

orintf("\n  AOi^  crocess  has  been  comcletedXn"); 
1  /  *  end  while  * / 
/////////////////////////////////////////////////////// 

e  n  d  a  d  r  :     ; 
r  e  t  u  r  n  (.  r  t  a  T  r  1  )  ; 
/*  en'-i  addr  1  s  C  )  *  / 


dumwrtCJ  {  /*  D'JM^Y  stackr  write  */ 
struct  strtao  *p5; 
1  n  t  V  f  y  1  ; 
//   !)U^'^'"iY  wr  i  f^ 
p 5  =  K<^t  r  [0]  ; 
f  o  r  (  y  =  C'  ;  y  <  S  ;  V  ■!■  +  )   { 
n  r  i  n  t  f  (  "  ^i  d  "  ,  y  )  ; 
forlyl   =  O;  yl  <  \ ^ ;      yl++) 

p  r  in  t  f  (  "  %  c  "  ,  o  5  -  >  3  t  r  e  1  m  (  y  I]  )  ; 

o  b  1-  + ; 

}     /*  end  dummy  write  end  for  1.  */ 
p  r  1  n  t  f  ^  "  \  n  "  )  ; 
>  /  *  en.T  dumw  r  t  (  )  *  / 


-MM- 


nLj*'Str(pst/oof)     /♦  nut  relation  on  stackr  */ 
//   "nust  a'ijust-  pointers  before  call  outstr 
int   *pst»  *ohf;      { 

extern   cnar   nenrei  11. si; 
struct   s^rtan   *osta; 

rt3  cnar       nrelll^jf     *fl(A'rt/     anameflSIf     *flrun; 

int  t  /     n  n  u  Ti  ; 

DSta=ost; 

anane  I  1<^I     =     '  \()  '  ; 
f  o  r  C  1     =     0  ;      )     <     \p_;      1  +  f  .) 

qnpl[lj     =    aenreUlj;       ore  U 121     =     '\0'; 
#  #  r  a  n  q  e    of     a     is    a  r  e 1 

f 1  run    =     '  1  '  ; 
//  b  n  e  (  *  o  0  t     i  =    0  )        { 
m  n  u  "^     -     0  ; 


U  9  retrieve     (ana-^e     -    a.cmarie)      { 

m  n  u  m  +  +  ; 
f 1 wrt     =     'n  '  ; 
if(.*pnf     ==     Tnum)      { 

for(l     =    u;     1     <     12;     If+)     psta->strelir.  [11     =    anamedJ; 

p  s  t  a  -  >  s  t  r  e  1  T,  (  1  2  1     =     '  \  (^  '  ; 

psta*-  +  ;     f)bf  +  +  ;     flwrt     =     'y'; 

>     /*     end     i  f     */ 


i  f ( f 1 w  r  t     --     •  n  •  ) 

i  f (  n  run  ==  '  \  '  )         f 1  run  =  '  2'  7 
else  i  f  (  A  m:)  f  >  0  )  { 
nrintf("'>ronc  aroument:  %n    discard  ed\n"f  -^pbf); 
flrun  =  '1';  ci-f  +  t; 
I 
>  /  *  e  n  d  w  h  i  1  e  *  / 

return; 

}       / *    end  putstrC)  */ 
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DCurcli.)         I        /-^     nrint-curnenf-class-ana-h  ranches     */ 

extern        char        c^nreMli); 
if-t  cnar       anrelMll.1.     rel-r^(15],     *nl<^3; 

d  c:  lot  a  1  ,      f  ]  i..y  1  ,      -^  1  e  x  ; 

n  1  ^  i     =      ' n  '  ;      flex     =      '  n  '  ; 

rorCal  =  o;  al<-  l-^;  aWf)  anrelWol!  =  aenreMql]; 

anre I  U I ?1  =  '  \0  '  ; 

t.  ri  nt  f  (  "XnCURh'tM  r     C  L  ■'^  S  S     ^jAWiF     is        *     %s     *\n",     qnrell); 

t  o  r  (  g  1     =     0  :     a  I     <     1  ^  ;     n  I  +  +  )        r  e  1  ^  [  o  1  ]     =     '      '  ; 

f  1  w  1    =   0; 

U4  rano*^    of     a     is     anrell 

i^ff    retrieve  (rel2  =  g.crname)  where  g.rid  =  0  { 

f  1  w  1  +  -f ; 

i  f  ( f  I  wi   ==   n    { 

pnntfC"  and    SUBCATEGORIES    are:\n"); 


UU 


) 
i  f  (  f  1  w  1  >  0  J   D  r  i  n  t  f  (  " 


%s\n",  re]^)•, 


} 


Drintf("   -Tvce  only  one  of  the"); 

printfl"fo]lowina  characters  in  \"  \"\n\  to  ADD\ 
your  1  i  s  t  i  n  q \ n "  )  ; 

omntfC"      \"1\"   into  CURRFfJT  CLASS  NAME\n\ 

\"a\"   -^aK^  ^Nlfri  SUBCATEGORY  and  put  this  into  it\n"); 

i  f ( f 1  ex  ==  '  V  '  ) 

pnntfC     \"3\"    use    an    EXTSTI^G    SUHC  A  TEGOR  Y\n  "  )  ; 

prinrfC"  \"n\"       .ione    of     the    above;STOP\ 

this     vJirectionSnco     >\n"); 

nlc?5    =    qrf^adcC); 
return(nlc?JS)  ; 
\        /*    en  a    pcurcH)     */ 


/  / 


addcur()        {     //    add-current:     add    to    current     record    name 
extern  oh  a'*       aenrel[13lr        flname[13l; 

extern  int  idnu'n; 

r  n  a  r       <i  r  e  I  3  I  1  3  I  ,        n  a  "i  e  3  [  1  3  1  ; 
inf  idnuf^3f  i>/ 

qrel3[l^l      =      'NO';        nane3[121      =      '\0'; 

coDy    exfern     to     local     names 
t  o  r ( 1  5    =    0 ;     1  3    <     12;     i  3  +  +  ) 

{     qrci3[i3)     =    oenrf»l[i3i;        nanne3[i3]     =     flname[i3j;     > 
i  i  n  u  m  3     =     i  (3  n  u  ^p  / 
//       ac^q    record    to    current     nsTe 
Hv  anoend     to    qrel3(riq    =     idnum3f     crname     =    name3) 

return; 
}        /*    end    andCijrC)     */ 


-  9  0  - 


ne^■^/o^c(1      <     //     n-jx-hnench:     a'Uls     record     to     new    branch 
extern  char       aenrel(13)/     f1naT>ell3]; 

extern  int  inngm; 


4^ 


Ch 
i  nt 


ar    qra^  (  1  ?1  ,-T^name  [I  31  f  f^namp  [131  r*a''-Jchar,*a'4wrt; 

t  a  -i  f     i  d  '4  n  u Ti ; 


q  r  a  'U  1  c?  1  =  •  \  {)  '  ;   a  '4 , 
//   r^rint  currerit  class  na'r-e     a'-::iain 
//   cooy  aenrel  to  local  qra^ 

for(aU  =  O;  a^l  <  \  i ;     a''J  +  +  )   araMia^l  =  aenreMa^l; 
orintn"   CDK^tinT  CLASS  ^,'/i^^E  is   *  %s  *\n",  graa); 
orintn"     Nt/j  SUBCATtGOF^V  will  be  a  branch  of\ 

tne  H'KKb'JT  CLASS  f>iAME\n"); 
onntfl"  -Give  wE/-  SUBCAJEGUHY  MAME\ 

(not  more  than  \ d    characters)\n"); 
o  r  i  n  t  f  (  "   do  NOT  insert  6  L  A  ^.! K  S  between  c  h  a  r  .  s  \  n  "  )  ; 
D  r  1  n  t  f  (  "  a  o  >  \  n  "  )  ; 
a  q  a  t  r  : 


// 


net 
f  o  r  (  a 
aU    = 
w  h  i  1  e 
i  f  C 


new    naiT^e     frorr    terminal 

a    -    0;     a^    <     12;     a^J  +  f)     a/4name[aM] 

o; 

(  (a^char  =  qetchar()  ) 
a  4  •.;  r  t  =  =  •  a  '  )  { 
i  f  ( 


\n  •  )  { 


r  t  =  =  •  a  '  ) 

a  '4  c  h  a  r  1  =  ' 

1  f  (  (  a  4  c  h  a  r 

(  a  '4  c  h  a  r 

(  a  .4  c  n  a  r 

a  4c  h  a  r 


•  )   { 

<  'a' 

<  '  A  ' 

<  '  0  • 


^achar  >  '?•)  &JI 
a^char  >  '9')  Ki 


O  r  1 

w 
D 


{ 

nt  f 
ni  ! 
r  1  n 


(  "  w  ronq    arGurnent;\"%c\"ftry    aaain\n",a'4char); 
e{i^'4c>^r>r    -    aetcharC)     )     1=     '\n')     ;     /*erase*/ 
t  f  f  "  a  o    >  \  n  "  )  ;     q  o  t  o     a  q  a  t  r  ; 


a^natiefa^]     =    ^ac)r\^r;     a4  +  +  ; 


// 

nu 

/// 
// 
// 
// 

data. 
tn 
/  /  / 


1  f  ( 

or 

aa 

} 

1     /  * 

a  J n am 

c  r  ea 

ere 

///// 
iM  e  w  r 
r  e'no  v 
a  i  V  an 


a  '4  w  r  t     =  =     '  a  '     <  ^     a  a    >     \?)      { 
intf("lonq     aroument;     truncatedXn"); 
w  r  t     ~     '  s  '  ; 

end    while     * / 

e  (  1  ?  1     =     •  \  0  '  ;       a  u  w  r  t  =     •  q  •  ; 

t"?  new  relation  with  new  branch  name?  a^name 

ate  -T'lnameCrio  =  \  d ,  crname  =  clc') 

//////////////////////////////////////////////// 

elations  "^ust  be  SAvFd  to  orevent  automatic 
**d  bv  irjf_^t^E3.  Ine  SAVE  command  date  must  be 
ced  oericdically   to   avoid   inadvertant   loss   of 


s-3ve  a^name  unt-i!  jun  30  1^7  8 
///////////////////////////////////////////////////// 


-91- 


//  aup^^'i     record  to  new  relation  a'^neme 
//   copy  c.^arr^Tipte'"s  to  local 
1  a'inuTi  =  i  .-in'jrn  ; 

foria'i     -     0  ;     r!  -1  <  1  rr" ;  a  ^U  +  )    f  a  n  a  rr  ^  [  a  'J  J  =  f  1  n  a  m  e  [  a  a  ]  ; 
f  4  n  a  T  e  1  1  c^  J  =  '  \  0  '  ; 
;^c    aooen^i  to  a'^narneCrid  -     id-Jnum,  crname  =  f^namej 
f 
/ /  also  aoDenn  to  current  class  name 

U^  aopena  to  ara-'-iCric  =  0,  crnaTe  =  a'^name) 

return; 
}/*enc'(newi-:)rc(J  */ 


exib re (ooal  rosal  ) 

/*  existinq-oranch:  ad'^is  record  to  existing  branch  */ 
i  n  t  *DDa  If  *Dsa  1  ;  { 
extern    char   C3enreltl5); 
struct    srrtao     *psa<?; 

##    Char   drla[15],  nanaTeCl"^]; 
int    a3/*obai^; 

qrla[l^J  =  '\()';        csa<£  =  Dsai;   pba?  =  pbai; 

//   orint   orancries  aaain 

//  copy  qenrel  to  local 

for(a^  =  U;  a^  <  !<?;  a3+t)  qrla[a3]  =  qenrel  {a5); 

printfC"  -Tyt^ie  on^^  or  morp  of  the  follo»«ina\ 
nu^■^ers  in  \"  \"  to  sel**ct  5ut)cateqory\n"); 

Uti  r  a  n  q  e  of  a  a     is  q  r  ]  a 

a  5    =    u  ; 
tin  retrieveCqanarne    =    qa.crnare)     where    qa.ria    =    ('     { 

a  w  + ; 

pnntfl"  \":<d\"        %s\n",     a3,     qaname); 

tz  a  \ 


q  r  e  a  d  n  ( r,-)  b  a  1  )  ; 

//   rpmovp  on'i  too  element  from  stack 

for(a3  =  o;  a^  <  12;  a3-t-+)   psa2->stre1m{a5]  =  '  '; 

//   out  selectpq  branch  names  on  to  stack 
//   adjust  qenrel 

fori  a  5  =  C^;  a  3  <  12;  a3  +  +  )   qenrel  [a3]  =  qrla[a3]; 


-Q2- 


//   p^J^  relafions  to  stack,  oass  stack  and  huf. 

p  u  t  s  t  r  (.  o  s  a  ?  f  o  b  a  2  )  / 
return; 
}  '  /  *  e  ri  d    p  X  i  b  r  c  I  )  -^  / 


po  1  n 


//////////////////////////////////////////////////////////// 
/  /        includes  d  e  1  nn  o  d  (  )  ,  a  o  t  n  u  m  (  )  ,   d  e  1  e  t  e  (  )  ,  m  o  d  i  f  y  (  ) 

;i  include  "encadm.c" 


//  com.c  includes;  cylbrcC),  HelpisC),  qreadc()f  areadnC), 
ill  s  q  e  r  1  (  ) 
«:  i  n  c  1  u  d  p  "  C  O  rn  .  c  " 
///////////////////////////////////////////////////////////// 
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enca<'irr  .a 


//   Ihis  file  is 
/  /   File  a  "i  'Ti .  q  i  : 


an  enclosurp  to  file  aam.q 
the  A  d  •-)  -  f^  e  1  e  t  e  -  '■;  odify  part  of  ISIS 


del  mo  1( )   { 

/*  ( J elete- modify:  aoes  common  actions^  and  branches  */ 
extern   cnar   fldm; 
extern   int    idnunn; 


as 


t  t  1  i  d  f  t  <?  i  d  f  t  i  m  e  n  , 

*rtdmf*fl find/*flqo/ 

pswl[?l,    csw^r^l; 
len    =    O; 


f  1  p  w ; 

rename  [lil  fPcciesfSl]  ; 


1  n 

cnar 

t  i  in 
'oqcim  : 

rtdm    =     'f';     ncnametl^l      -     '\0';     rcdes(SO]     =     '\0'; 

rt  d 
iqadm 

pr  i 

a  re 


tin 


nti 

nn 


ntfC"       -fiive     I  i^    MU'-'BF 
qoinq     to");      if(,fldm 
else    orintfC" 
print  fC'qo     >\n"); 
t^id    =    n; 

ranqe    of     r     is     reccrdfil 
tlid    =    qetnumC);        /*     qet 
t^io    =    0;     flfind    =     'n'; 
retrieve     (tc?id    =     r.rid) 

> 
ifCtc^id     i=    0)     {     /*    rneans 
orintfC"        -Give    only    one 
orintfC'qo     >\n"); 
pswltO]      =    qreadcC); 
flow    =    0 ; 

retrieve  (osw2  =  r.oswr 

i  f (oswl  LOl      1 =    psw^  [0)  ) 
{     orintf("wronq    casswo 

> 
1  f  (  f  1  o  w  =  =  1  )  a  o  t  o  e  n  (i  (i  m 
retrieveCrcn^To  -  r.rn;3rp 

where  r.rid  =  t?id 
orintfC"\nID  =  record 
/.  s  %s\n"/  t'?id,  rcnam'^ 
f)rintf("\nls  this  th«^  li 
-Fvrie  \"yes\"  or  \"no\ 
t  1  f  i  nd  -  ' y '  ; 


R  of  your  records  which  you\ 
==  MV)  or intfC"  deleteXn"); 
m  o  d  1  f  V  \  n  "  J  ; 


inout  and  compute  ID  U    */ 
where  r.rid  -  tlid  { 


rid  is  correct  */ 

character  as  a  PASSwORDXn " ) ; 


d)  where  r.rid  =  tlid  { 

r  d  ;  e  X  i  t  e  d \ n " ) ;  flow  =  1 ;  } 


e  >     redes  -  r.rdesJ 

name       'tescription\n%d\ 
,     redes ) ; 

si"ina  vou  are  seeking  ?\n\ 
"\nao  >\n"l; 


un 
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t  i  men 

1  t  (f  1 

p  r  i 

} 
i  f  C  f  I 
o  r  1 

go  t 


e  rvi     i  f  (  t  2  i  d     1  =     0  )     *  / 

f  1  n  n     =  =      '  n  '      i  i,     t  i  .t  p  n     >     ?  )      { 

ntf("iN  rona     I')     nijnnt:>er     t-hree     tirreSfX 

pnonraTi    exitedXn"); 
m     =      'e''     QOto     entifim; 

f  1  n  .n     =  =      •  n  '  1      { 

ni:'ff"rry  one  rore  tinne\nno  >\n"); 

o  D  e  <-i  n  Tfi ; 


//   i  f 

f  1  nd 
f  Iq 
1  f  ( 
1  f  ( 

1  d  n 
1  f  ( 
1  f  ( 

end  '_i  m 


finis  cones  h  »  r  p 
no: 

o  =  qreadcC); 
flao  --     'n'j   ooto  end dm; 
flqo  1=  'v')  {nrintf('"Trv  one  more  time\nqo  >\n"); 

ao  t  o  f  i  ndao ;  } 
u  rn  =  t  2  i  d  ; 

f  1  rim    ==     '  [)'  )       del  ete  (  )  ; 
f ) dm     ==     'M '  )        modi  f V (  )  ; 


re t  u  rn  C 
}   /*  a 


nd  de  1  -nod  (  )  *  / 


qe  r  oij-^  C  )   { 

/  /     regd  ci^ar.s  from  rer-ninal»  computes  one  int.  number 
9^     int  tn,  tl,  t^; 
q  e  t  o  e  ") : 

t2  =  O; 

whi1e((tn  =  netcharC))  1=  '\n')  { 
1  f ( tn  1  =  •   '  )  { 
to  =  r  n  -  ' U '  ; 
if(tn  >=  0  ''vN  tn  <=  9  )      { 
t  1  =  t  n  ; 

t^  =  X  <^    *  10  t  ti; 
} 
e  1  3  e  { 

orintfl"''>/''ona  arawr.ont  ',      trv  anain\nqo  >\n"); 
while((rn  =  oe>'char()j  1=  '\n')  //  erase  buffer 
aoto  ("jetneq* 
} 
} 
}/*en:iA;nile*/ 
return(tc^)  »' 
}/*en^iqetntjm()*/ 
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CJ  e?  1  e  t  e  I)         { 

e  y  t  e  r  n 
extern 
5  ^  r uc  t 


1  n  ^         i  --Intjm  ; 
s  t  r  r  ^ '  1        *  n  ^5  d  ; 


t^4 


/  / 

un 

/  / 
na 
nu 

// 


f  Iname  [12]     =     ' \0 


1  nt         i  d-i  1  t  ,      i  ,      f  1  ; 
cnar     fln^i'"  elixir      *ffin; 
i'lilt     =     idnu^;     Qsi     =     ^str[0); 
t  f  i  n     =      '  ,n  •  ; 
delete     frc^     reCDf'ofile     relation 
ranqe    O'^     n     is     recordfile 
delete     r     where     r.rid     =     iddlt 
delete     fro"^    whe^^e     relation 
ranqe     of     wh     is     whr 
delete    w  H       where    w  n  .  r  i  d    =     i  d  ci  1  t 
initialize    stackr    emty 
f  o  r  c  f    =    'J ;    f    <    ;?  S  ;    f  +  ^-  )    { 

forCfl     =    0;     fl     <    2S;     fl++)        psd->strelm[fl]     =     ' 
osd  t- 1 ; 
\     / *     end     1  ,     for     */ 
Dsrj    =    \st  r  [0  ]  ; 
load    stackr    with    maintable     relations 
ranqe    of     ^     is    Tiaintable 
f  o  r  (  f     =     0  ;     f     <     {?.;     f  tt )        f  1  n  a  n  e  [  f  1     =     '      '  ; 

retrieve     (flna^ne    =    m.crname)     { 
//       copy     relation    to    stack    and    erase     flname 
f  o  r  (  f     =    0  ;     f     <     1  ^  ;     f  +  +  )     { 

Dsd->strelniLfl     =     flnarnelfl; 
flnaiTielf]     =     '      '; 


osd  +  -t 


/  / 


\ 


begin  delete  by  usinq  stack 
orintM"  deletion  in  progress  ...\n"); 

eCffin  ==  'n')  {  //  means  stacKr  not  finished 


w  n  1 


//  dur^wrtC);    /*  l)U^^-1Y  '/'RITF  */ 
//   find  last  element  on  stack 
Dsd  =  \3  t  r  [ 0 1  ; 


(Ul   =  = 


• ) 


to 
{ 


qet;   if  emptYf  finish 


/  / 


i  f  (  o  s  d  -  ">  s  t  r  e 
f  f  i  n  =  '  y  '  ; 
goto  end  1 e/ 
) 

f  =  0; 
^hile(osd->3treln[ul   !=  ' 

ftt;   osd^-  +  ; 

i  f ( f  >  ?5)  { 

or  i  nt  f  (  " 'iA^-)ir>^G:  delate 

orintfC"     cor^t-inues^     rriax 

p  s  d  -  -  ;        "^^re^K't      ) 
}     /*     end     ''^/hile     */ 
o  s  d  -  -  ; 

copy     last     stac«^    ele^rient     to    qenrel  (13] 
f  o  r  (  f     -    0  ;     f     <     \?',     f  +  f  )     { 

qenrellf]     =    csd->strelm[f]; 
> 


•  )     { 


stack     overflow    process"); 
2  5    items,\n"); 
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//   call   ielete  hy  Dassino  stack  oointer 

oro'i  1  t  (r)sd  3  ; 
e  n  -j  1  e  : 

}  /  *  f>nA    while  *  / 

Drintf("'ielet'ion  nas  hp^n  CTnoletedXri"); 
>/*3.'-i-i-iel?te()*/ 


Drodlt(os'ilt)    /*  process- delete   */ 
i  n  t   *  o  3  d  1  t  ;   { 

extern    char  qenrel[151; 
e<t°rn    int   idnum; 
struct    stntaq   *csdl; 

s?  e    i  o  t   1  i  d  I  t  1  f  d  1  ; 

tttt  cnar    qniltCl'^lf     dltrel[13),     *fldlt/     dfname[13j; 

//       intialize    and    coov    qlobal     to     local 
DSdl     =    osdlt;        iddltl     =     idnuTi; 

gndlt[l?1     =     'XO';        dfnarne[121     =     'XO';        fldlt     -     'n'; 
f  o  r  (  d  1     =    I") ;     d  1     <     \?}     d  I  f  +  )     { 

qndlttdll     =    nenreUdlJ;       dltrel[dl]     =     '     '; 
} 
dl  t  rel  [1 ^]     -     ' \0  •  ; 
U  ^  range    of     de     is    qna1t 

tf  ^  retrieveCdItrel     =    de.crnam«)       where    de.rid    =     iddltl     { 

fldlt     =     • y ' ; 

U!*  } 

//       if     there     is     recoi^o    with    rielete     id    ^    delete    and    return 
i  f  (  f  ]  d  I  t     =  =     '  V  •  )     { 
Pt-ti  delete       de       wnere    de.rid    =     iddltl 

d  1    =    1  ; 

^^  retrieve  (d1  =  countC de.rid)  ) 

> 
i  f  (  d  I  =  =  0  )  { 
ua  destroy   qndit 

tiu  range  of  of  is  dfname 

U4  delete   df  where  of.crna^e  =  qnJlt 

> 
i  f (f 1 dl  r  --     • V  '  )    { 

forCdl  =  O;  dl  <  12;  dl+*-J  osdl->strel'n[dn  =  '  '; 
goto  endoro? 
} 
//   coov  stack  too  to  dfna^ne  to  us°  next  ti-re  and  <jelete 
f  o  r ( d I  =  0 ;  d 1  <  \i;     d 1 +  n  { 

dfna'ne[dlJ  =psdl->strolTifdl]; 
p  s  d  1  -  >  s  t  r  e  1  m  [  d  11  =  '  '  ; 
} 
//   if  there  is  a  oranch  relation  out  on  stack 
uu  petrieve(dlt-n*i|  -  ie.crna^e)  where  de.rid  =  0  { 

f  o  r  (  d  1  =  0  ;  d  1  <  12;  d  1  ♦•  f  ) 

osdl->strel-^[dl]  =  dltreMdli; 
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o  s  -1 1  ^  *  f 

at,        \ 

e  n  d  p  r  o  * 
)     /*  eno  cro-JltC)  */ 


mod  i  t  y ( )   { 

un  cnar   fll^nl^J,  *fll,  *fl2; 

int     Zf*ol'?n; 

f  1  l^n  (  1)   =  'XO  '  ; 

f  1  1  =  •  1  '  ;   f  I  2  =  '  ^  '  ; 

DrintfC"\n     It  is  allowed  to  Tiodify  only\n\ 
orogr^m  DESC^IPTIONSn  and\n\ 

of^qram  vVHEh;E  infomationSn"); 
Drintf("    If  you  want  to  do  other  than  this  use\ 
ntLEft  to  removeNo  the  listing  and\ 
than  use  ADD  to  create  a  revised  one.\n"); 
D  e  g  T  o  d  : 

whi le(f 1  1  ==  •  1 '  !  !  f 1 2  ==  '2'  )  { 
D  r  i  n  t  f  C  "  \  n    "  )  ; 

orintf("-Tyoe  one  of  the  following  in  \"  \"\n"); 
i  f (f 1  1  ==  •  1  '  ) 
orintfC    \"1\"   to  modify  record  DE  SCR  I  P  T  I  ON  \n  "  )  ; 
i  f ( f 1 2  ==  '2'  ) 
orintfC"   \"  ?\"        to  nnodify  record  'aIHEi^E  informationXn"); 
crintfC  \"n\"  \iOT  to  do  anythinq,  and  ^^ETUR^\ngo  >\n"); 
tll2n[{)]  =  oreaocC); 
pl2n  =  ^fU2n[0l; 
swi  tch{  f  1  12n  10]  )   { 
case  '  1  '  : 

mde wh ( D  1  2n  )  ; 

f 11  =  '3' ; 

o  rea<  ; 
case  '2  •  : 

maewh(Dl2n); 
f  1  2  =  •  3  '  ; 

D  r  e  a  k  ; 
c  ase  '  n  '  : 

goto    enrtfTioi; 
}     /  ♦■     end     switch     *  / 
}     /*     eno    i/vhile     */ 

e  n  G  Ti  o  1 : 

r 

}/*en'-1'Tiodify(')*/ 
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m'Jei/vhlct)        /*     rrodifv-^escription-where-relations     */ 
i  n  t        *  p  t ;        { 

extern   int  ionum; 
Uf-*  int   tnnuT,  zJ 

t;  i;    c  n  a  r   o  d  e  s  I  S  1  ]  ,  *  t  c  h  ; 

t  d  n  LI  pn  -     i  d  n  ij  T' ;   o  a  e  s  [  S  0  1  =  '  \  0  '  ; 

if(*pt  --     '!')  <  /*  Tieans  modify  oescription  */ 
?6        ranae  o^  r  is  recornfile 
#i;        retrieveCcdes  =  r.rdes)  where  r.rid  =  tdnunn  { 

printfl'Vresent  oroqrann  description  is;\n  %s\n\n"»oaes); 
titi  ) 

)     /  *  end  it  */ 

if(*pt  ==  'c'')    {   /*  means  nonify  where  */ 
UU  range  of  wh  is  whr 

tiii  retrieveCodes  =  wh.raes)  where  wh.rid  =  tdnum  { 

orintf("^-'resent  /J  HERE  information  is;\n  %s\n\n"/pdesj; 
»n  ) 

}/*endif*/ 


i  f  (  *  p  t  =  =  •  1 


ot  ==  'a- )  { 


printfC"   -bive  new  listina")? 
i  f ( *rt  ==  '  1  •  ) 

print  f("  OFSCRIPTIO'M  (^OT  more  than  5U  "); 
i  f ( *  c  t  --     ' 2 '  ) 

rrintfC"  wHERE  information  (NOT  more  than  5  0  "); 
r'rintf("ch3racters)\nao  >\n"); 
fnr(2  =  O;  7    <    so;  z  +  ^-)   Ddeslzl  =  '  '; 

2   -   ^; 

while((tch  =  oetcharC))  1=  'Nn')  { 
pciesi?]  =  tch;   z+--t-; 
i  f  (z  >  SI  )  \ 
printfC"       Lono  line;  truncated\n\ 
only  first  5C  characters  have  been  accePtedXn"); 
pdes  ISOI  =  ' \0 ' ; 
D  r  e  a  i<  ; 
> 
>■  /■*  eno  while  */ 
1  f  Cz  <  SI  )   pdes  [zl  =  '  \0  •  ; 
}     / *  eu6     if  */ 

1  f  (  *Dt   ==   •  1  •  )    { 

S3       re  f")  lace  rCrdes  =  cd'=»s)  where  r.rid  =  tdnum 

} 

i  f (*Df  ==  '2'  )  { 
«?*       replace  wh(rdes  =  pdes)  where  wh.rid  =  tonum 


} 


/*  end  mr3ewh(J  */ 
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